RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 
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RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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14-Sep-1984 


ZTITLE "NDXPAG == Output p29¢ formatting routines’ 
MODULE NDXPAG (IDENT = ‘v04- a 
7 ZBLISS32 C, ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_RELATIVE)] 


RUNOFF «SRC JNDXPAG.BLI; (1) 


BEGIN 


| 
BES ESE SS SAS ESSE ESET TT TTT TTT TTP Cee TT c eee Tec c cic tics ii ii iit iii iii ii iiie) 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

iw DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

it ALL RIGHTS RESERVED. 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


!* TRANSFERRED. 


'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:* SORPORAT Ok NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
.* . 


i DIGITAL ASSUMES NO RESPONSIBI 
is SOFTWARE ON EQUIPMENT WHICH | 
it 
PTTITTITITITILILI TILL TLL LLL LILI LiLitiitiTiiliiiiiiiiiiiiitiiii 
! 


ITY FOR THE USE OR RELIABILITY OF ITS 


* 

® 

® 

® 

® 

® 

® 

® 

® 

, ® 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
® 

® 

® 

* 

® 

w 

L * 
§ NOT SUPPLIED BY DIGITAL. . 
* 

t 

* 


+ 
FACILITY: 
DSR (Digital Standard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility 


ABSTRACT: f 
This module contains routines that format the output index pages. 


ENVIRONMENT: Transportable 
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' 
' 
' 
! 
! 
Oba AUTHOR: JPK 
0045 CREATION DATE: January 1982 
0045 MODIFIED BY: 
0047 1! 009 JPK00022 30-Mar-1983 
0048 ! Modified NDXVMS, NDXFMT, NDXPAG, NDXVMSMSG and NDXVMSREQ 
O80 to generate TEX output. Added module NDXTEX. 
051 i 008 JPK00021 28-Mar-1983 
026 ! Modified NDXT20 to include E2.0 functionality. 
05 ! Modified NDXCLIDMP, NDXFMT, NDXPAG, NDXVRS to require RNODEF 
054 ; for BLISS36 and to remove any conditional require based on 
Bp ee DSRPLUS_DEF. 
0087 i 007 JPK00018 09-Mar-1983 
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1 
Sep-1984 73 AX-11 Bliss-32 v4.0 
Sep- 138 oy: 8S: 2 RUNOFF. BR CINDXPAG. arti 
Modified INDEX to handle new BRN f 
Modified NDXOUT to handle Specityable Le Levels, on SORT= string. 
Modified NDXFMT to output new RUNOFF pret 
Modified NDXPAG to output new TMS pro ogue wand RUNOFF epilogue. 
JPK00017 23-Feb-1983 
Modified NDXINI to invetelize the zero'th entries of LLINES, 
RLINES and TLINES which is where the telltale strings are 


NDXFMT. 
Mogi fied’ NOXEMT fo write appropriate prologue for /TELLTALE, 
pore ene appropr ate Lines for left and right telltales, and 
e end of every entry with a Wuul. 
fod tied NDXPAG to change the NULL follow ng each entry to a 
space if LAYOUT is SEPA ATE or to a comma otherwise and to 
generate and output telltales. 


JPKO0015 04-Feb-1983 
Cleaned up module names, modified revision msesery to 
conform with established standards. Updated copyright dates. 


PK00012 24-Jan-1983 
Modi tied NDXVMSMSG. SG to define error messages for both 
DSRINDEX and INDEX. 
Added rogues of NOXVMSREQ.R32 to NDXOUT, NDXFMT, NDXDAT 
MSG, NDXXTN, NDXTMS, NDXVMS and NDXPAG for BLI$s32. 


JPKO0011 24-Jan-1983 
tee CMDBLK CNDX$G_LEVEL] to CMDBLK CNDX$H LEVEL) 
Changed CMDBLK CNDXSH_FORMAT) to CMDBLK CNDX$A_LAYOUT) 
cpenged teed WOKS, Test th) and CMDBLK meKey TEX) to CMDBLK CNDX$H_FORMAT) 
bhen ed conser’ sons (.CH melt EQLA CHRSZA) to 
(.CM oe X$H SPORMATI EQL TMS11_A). 
Definitions were changed in NDXCLT and references to the 
effected ee were changed in NDXPAG, NDXFMT, INDEX, NDXVMS 


and NDXCLIDMP 


PK00003 
Modi tied NDXPAG for. *Brs-20, *SIGNAL' was not gendtttonal ized 
to produce an $XPO_PUT_MSG it not ZBLISS (BLISS32) 
Modified to add stlaalied /TMS=E changes. 
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es ° 12-8 08= 138s 94:06: 32 RUNOFF .SRC.INDXPAG.BLI; ont (2) 
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' 
TABLE OF CONTENTS: 
FORWARD ROUTINE 
PUTPAG : NOVALUE, ' Write a formatted page 
VJUST_COL : NOVALUE, ' Vertical justify a column 
LASTPG : NOVALUE, ' Format and balance last page 
LAST CONT ! Generate a continuation heading for last page 


' Get external length of Line 

! Get indent Level of serine 

! Build a guide head for TMS11 

! Initialization for TMS11 output 
! Generate a telltale heading 


GUIDE_READ  : NOVALUE, 
TMSIN : NOVALUE, 
TELLTALE_HEAD : NOVALUE: 


- 
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ma 
cs 


INCLUDE FILES: 


LIBRARY "NXPORT:XPORT'; 
SWITCHES LIST (REQUIRE); 
REQUIRE ‘REQ:NDXCLI'; 
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-Sep-1984 
: IDENT = 0V04-00004 


' 
ASSESSES ESTE TT eee eee cece eee ei citi iirc icici irr iii it iiiity 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
it DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


e 
® 
* 
* 
is THIS SOFTWARE. I$ FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ig ONLY IN| ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ig INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER + 
is COPI ES THEREOF MAY NOT GE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
is OTHER PERSON. NO TITLE TO AND OUNERSHIP OF THE SOFTWARE TS. HEREBY 
i TRANSFERRED. * 
'e * 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
i# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
ie CORPORATION. * 

® 

® 

® 

& 

we 

ad 


!® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


VRRP RE REE RE REET A EEA REE EERE 
! 


ae 
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FACILITY: 

DSR (Digital Standard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility 
ABSTRACT: INDEX command Line definitions 
ENVIRONMENT: Transportable 
AUTHOR: JPK 
CREATION DATE: January 1982 
MODIFIED BY: 

004 JPK00015 04-Feb-1983 


Cleaned up module names, modified revision nrstery to 
conform with established standards. Updated copyright dates. 


003 JPKO0011 24-Jan-198 
eee CMDBLK NDXSG. LEVEL] to CMDBLK CNDX$H wit 
Changed CMDBLK sh T] to CADBLK wOxsh 


pnenged CMDBLK 


CrERBBLK ENDXSH” sons ats Eat TRS1i-AD ews 


Definitions were changed in NDRCLT" + references t 
effected fields were changed in NDXPAG, NDXFMT, INDEX. MAD XVMS 
and NDXCLIDMP. 


002 EROO002 20-Jan-1983 
Rods tied VMS command Line interface module NDXVMS: 
= changed /FORMAT qualifier to /LAYOUT. 


ee ee 


-32 V Page 
ST RONOFE™ She NDXCLI.REQ;1 (1 


UT] 
oe Cm we fsv.. “EXD” to CMDBLK CNDX$H_FORMAT) 
to 
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searing ae oprah rhage ifese 3071 38e He 98: 3 VE35sSp0AaE SCRONOEE SRC NDXCLI.REQ;1 frm a} 


- oareee use B 4 /RESERVE and /REQUIRE for DSRPLUS. 
- add ode ie new DSRPLUS qualifiers /FORMAT and 
/TELLTALE_HEADINGS. 
ae Ee, fo NDXCLI for new qualifiers: NDXS$V_TELLTALE 
an 
Conditionalized output of NDX$V_PAGE_MERGE in NDXCLIDMP to 
account for dirferent DSR and DSRPLUS default values. 
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v04-000 -Sep- -$255$DUA28 : (RUNOFF .SRCJNDXCLI.REQ;1 (2) | 

; RO193 1 : ; 
; ROI94 1 ! NDXCMD_FIELDS ; 
; RO19S 1 : : 
: ROIae 1 SFIELD ndxcmd_fields = : 
> ROW97 1 SET : 
; kRO198 1 : 
3 3844 i NDX$V_OPTIONS = CSINTEGER), ! Command option indicators: : 
; | 3 
H ROS b3 : SOVERLAY (NDX$V_OPTIONS) : 
: ; 
; ROS0S 1 NDXS$V_INPUT_CONCAT = ($81T), ! Input file concatenated to previous | : 
; Rose 1 NDX$V° OUTPUT = ($B81T), ! Generate output file : 
: kRO2O0S 1 NDX$V_REQUIRE = ($B81TJ, ! Require file specified 3 
; kO206 1 NDX$V_PAGES = ($B1TJ, ' Include page references in index : 
> RO207 1 NDXS$V_OVERRI = ($B1TJ, ' Override master index information 3 
; kRO208 1 NDX$V_STANDARD_ PAGE = ($81TJ, ! Generate standard page numbers : 
: RO209 1 NDX$V_ CONTINUATION = ($B8iTJ, ! Generate continuation headings ; 
; RO210 1 NDX$V_GUIDE = ($B81TJ, ! Generate guide headings ‘ 
; kO211 1 NDX$V_WORD_SORT = ($B81TJ, ' Sort entries word by word ; 
3 nos 16 1 NDX$v_LOG = ($B1TJ, ! Generate /LOG message : 
> RO215 1 NDXS$V_MASTER = s81T). ! Generate a master index $ 
; RO214 1 NDXS$V_PAGE_MERGE = ($B1TJ, ! Merge adjacent page references 3 
; sith : NDX$V_TELLTALE = ($B81TI, ! Generate telltale headings : 
s ROT I SCONTINUE | : 
; RO219 1 NDX$H_FORMAT = CSSHORT_INTEGER], ' Output format: DSR, TMS, TEX : 
; kO220 1 NDX$H_LAYOUT = CSSHORT_INTEGERJ, ! Output layout type ; 
> RO221 1 NDXSH_NONALPHA = CSSHORT_INTEGER], ! Treatment of leading nonalphas during sort ; 
3 Rosse 1 NDXSH_LEVE = [CSSHORT_INTEGERI, ! Deepest level to include in index 3 
; RO223 1 NDX$G_COLUMN_ = CSINTEGER), ' Column width : 
3; RO226 1 NDX$G_GUTTER_WID = SN TEGERy ! Gutter width : 
; kO225 1 NDX$G_LINES PAG = CSINTEGER), ' Lines per page ; 3 ; 
: RO226 1 NDXSG_RESERVE LINES = CSINTEGER), : Number of lines to reserve when requiring a file : 
; RO227 1 NDX$G_SEPARATE WIDTH= CSINTEGERJ, ! Width of reference portion of entry : 
; kRO228 1 NDXST_MASTER BOOK = CSDESCRIPTOR(DYNAMIC)], ! Book name descriptor for Master indexing 3 
; RO229 1 NDX$T_ INPUT _FILE = CSDESCRIPTOR(DYNAMIC)], ! Input file name descriptor : 
; kRO230 1 DX$T_OUTPUT FILE = CSDESCRIPTOR(DYNAMIC))], ! Output file rame descriptor : 
; rRO231 1 NDXST-REQUIRE FILE = CSDESCRIPTOR(DYNAMIC)], ! Require file name descriptor , 3 
: Roe ts 1 NDXST_RELATED_FILE = CSDESCRIPTOR(DYNAMIC)], ! Related file mame descriptor is saved here : 
; ROC? 1 ' by NDXINP for Later use by MAKNDX 3 
3 Rosse : NDXST_COMMAND_LINE = CS$DESCRIPTOR(DYNAMIC)] ! Copy of entire command Line | : 
: RO 1 TES; | ; 
; RO23? 1 . : 
; RO238 1 ! End of NDXCMD_FIELDS : 
; RO239 1 : : 
; RO260 1 3 
: RO241 1 LITERAL : 
; = rs! : NDXCMDSK_LENGTH = SFIELD_SET_SIZE; : 
> RO24Q 1 MACRO : 
; RO 45 1 SNDXCMD = BLOCK CNDXCMDSK_LENGTH] FIELD (NDXCMD_FIELDS) 2; : 
; RO “3 1 SLITERAL ' Qutput formats (NDXSH_FORMAT) 3 
; RO248 1 R = $DISTINCT, ' Runoff : 
: RO2469 1 TMS11_A = $DISTINCT, ! TMS=A : 


2 
NDXPAG NDXPAG == Output page formatting routines 16-5¢ 1984 01:06:39 VAX=11 Bliss-32 V4.0-74 Page 7 ND 
V04-000 ae = 18-Sep-1984 22:58:19  VSPSSSDUASBSTRUNOEE SRCSNDXCLI.REG; 1° (24 vO 
; RO e0 1 ™S11_E = SDISTINCT, ! TMS=E > 
3 Ry 1 ! TEX = SDISTINCT; { TEX : 
; RO ef SLITERA ! Output Layouts (NDX$H_LAYOUT) ; 
; RO 2¢ 1 TWO_ COLUMN = $DISTINCT, : Normal two column format : 
>; RO255 1 ONE _ COLUMN = $DISTINCT, : Normal one column format : 
; RO 2 1 EPARATE = SDISTINCT, ; seperace reference format : 
: Re ef : GALLEY = SDISTINCT; ! ™™ : 
> RO259 1 SLITERAL ! Treatment of leading nonalphas during sort (NDX$H_NONALPHA) : 
; RO26O0 1 BEFORE = SDISTINCT, : Leading nonalphas sort before pipes : 
3 Rose 1 AFTER = SDISTINCT, ! Leading nonalphas sort after alphas : 
; Rose : IGNORE = $DISTINCT; ! Leading nonalphas are ignored : 
; RO264 1 ; 
; RO265 1 foo End of NDXCLI.REQ : 


| 
| 
| 
11 Galley format 
| 
| 
| 
| 


, 2 
Ey «(SATA — tut page fornceing reset Herat: HAA Bald ess RT roe of 


: 186 06? 1 REQUIRE "REO:NDXLIN'; 
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; RO 68 ' IDENT = 0V04-00002 | : 
: 0 ! i eeeeeedeeeeeeeeeeeeeeeeeeeeeeneeeeeeeereeeererereeerereeeeeeeeeeeeeeenereeee ° 
3; ® ‘® ~ : 
; RO272 1 '‘s COPYRIGHT (c) 1978, 1980, 1982, 1984 B ® | : 
; kRO2735 1 '® DIGITAL ig he EORPORATION, MAYNARE. MASSACHUSETTS. * ; 
; ROT I is ALL RIGHTS RESERVED. | ; 
3 '® * : 
; RO 1 '* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corice * : 
; kRO277 1 't ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * | ; 
; kRO278 1 '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS S$ RE OR ANY OTHER * : 
3; RO279 1 :* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
; kRO280 1 '® OTHE RSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
: sit : ? TRANSFERRED. * : 
oO .* w P 
; kRO283S 1 '® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
>; RO2B4 1 '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ; 
; Roser : ied CORPORATION. * H 
; 'e * F 
; kRO287 1 't DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * | F 
; kRO28B 1 '® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ; 
> RO289 1 '® * | F 
; RO0290 1 'e * F 
s kRO291 1 SRR RARER RARER E RAAT ER EERE 3 
; kRO292 1 ! 3 
; RO293 1 3 
> RO294 1 '++ | $ 
: RO295 1 i FACILITY: | : 
3 Rose : DSR (Digital Standard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility : 
: R098 1 i ABSTRACT: | : 
F 5964 : Contains output Line type definitions. : 
; RO301 1 ! ENVIRONMENT: Transportable 3 
; RO302 1 ! ; 
; RO303 1 ' AUTHOR: JPK 3 
; RO304 1 ! 3 
; itt : : CREATION DATE: January 1982 : 
; RO307 1 ! MODIFIED BY: 3 
; kRO308 1 ‘ 3 
; kRO309 1 ! 002 JPK00010 04~F eb-1983 3 
; RO310 1 ; Cleaned up module names, modified revision history to : 
$ RO31¢ : conform with established standards. Updated copyright dates. : 
; RO ig 1 len 3 
3 Rosie 1 : 
; kRO3S15 1 LITERAL ‘Output Line types: 3 
; Roelé 1 BKT_E = 1, ‘Bucket end blank Line ; 
3; RO317 1 FILC = 2 ‘FILL Line : 
: RO31B 1 GUIDE = $, iGuide head ing ; 
; RO319 1 GUIDE _FILL = 4, ‘Blank Line after guide heading : 
3 aoe 0 1 ENTRY_B = 5, iBeginning of top level entry : 
; RO321 1 ENTRY_W = 6, tase Line of top level entry : 
; ROS § 1 ENTRY_E = 7, 'Las Line of top level entry : 
3; «ROS 1 SUB_B = g. 'Beginning of subentry ; 
; RO324 1 SUB_W = 9, ‘Wrap Line of subentry ; 
| 
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VOe~000 ett ave 1378Sb719he 93:98:33 “SSSEEoBASESTRanee seCSwoxLin rea; 12% «45 


ss 


0 ‘Last Line of subentry 


3 ee SUB_E = 10, 

; i 8 ! CONT_HEAD = 11; 'Continuation heading 
; ROS2B 1 

; kRO3S29 1 feo End of NDXLIN.REQ 


en 
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15-Sep-1984 22: 


Version: *v04-000' 


Ye ARREARS 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


* 
*® 
® 
® 
. ® 
it THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
it VIN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
is COPIES INEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
it OTHER PERSON. NO TITLE TO AND OUNERSHIP OF THE SOFTWARE 1S" HEREBY = 
ie TRANSFERRED. . 
* 
iw THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 
® 
* 
® 
we 
® 
e 
* 


'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
t® CORPORATION. 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Vee REAR AERERERA AAA EATERS 
' 


'e¢ 
! FACILITY: : 
! DSR (Digital Standard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility 


ABSTR at 
This file contains external references to the error message numbers 
for DSRINDEX/INDEX. 


New messages must be defined in NDXVMSMSG.MSG and referenced here 
both in the MACRG section (for DSRINDEX) and the EXTERNAL LITERAL 
section (for INDEX) 


ENVIRONMENT: VAX/VMS User Mode 


AUTHOR: JPK 
CREATION DATE: 01-Feb-1983 
MODIFIED BY: 

004 PK00022 30-Ma 


-1983 
Modi tied NDXVMS, NDXFAT, NDXPAG, NDXVMSMSG and NDXVMSREQ 
to generate TEX output. Added module NDXTEX. 


003 JPK00021 28-Mar-1983 
Modified NDXT20 te incl lude E2.0 functionality. 
Modified NDXCLIDMP, NDXFMT, NDXPAG, NDXVRS to require RNODEF 
for Pi iee and to remove any conditional require based on 
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RUNOFF ..SRC JNDXVMSREQ. : 2:1 
002 JPK00010 04-Feb-1983 


' 

: Cleaned up module names, modified revision mrevecy 5e 

conform with established standards. Updated copyright dates. 
i 


REQUIRE ‘REQ:RNODEF’; 


SS 
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-Sep-1 
1 
Version: *v04-000" 


PERSE SETS SITET TTT TTT TTT T TTT eee cece cece ccc eect irc ii ici ici iii itis iiii iii 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
it DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
* 
® 
® 
:* THIS SOFTWARE IS FURNISHED reret en LICENSE e 
:* ONLY IN ACCORDANCE WITH THE TERMS OF ® 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. T ® 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHE e 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP 0 ® 
? TRANSFERRED. ® 
‘* ® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. . 

® 

® 

® 

® 

® 

® 


'® DIGITAL ASSUMES NO RESPCGNSIBILITY FOR THE USE OR RELIABILITY OF ITS 

:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

Reet P eit iii tilt iii iiiiiiiiiiiiiiiiitiiiiiiiiiiiiiiiiiiiiiiiiiii) 
i 

'e4¢ 

FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


ABSTRACT 
tonverts BLISS/VARIANT values into useful names. 


ENVIRONMENT: Transportable BLISS 
AUTHOR: Rich Friday 
CREATION DATE: 1978 

MODIFIED BY: 


016 KAD00016 Marshall 19-Mar-1984 
Added GERMAN, FREN H, & ITALIAN. 
015 KAD00015 Keith Dawson 18-Apr 


-1983 
Made the LNO1 Fae ib Bos the Sofeult for vanilla DSR -- 
its value is 0 (no variant supplied). 


C14 KAD00014 Keith Dawson 22-Mar-1983 

Asserted the LNO1 conditional when DSRPLUS is asserted. 
013 KAD00013 Keith Dawson 20-Mar-1983 

Removed all references to .BIX and .BIC files. 
012 KAD00012 Keith Dawson 07-Mar-1983 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 


—— 
~~ 


CRUNOFF . she RNODEF .REQ; * 
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' 
DEFINITION OF /VARIANT BITS | 
The bit assignments are as follows: 
Bit Weight Meaning 
| 
| 
J 


- 0 If ne (VARIANT ig supplied (as for vanilla DSR), 
— ile with LNO1 su port. LNO1 support is also 


ied by the DSRPLUS variant. 


> 
» 
' 


Unassigned 
Unassigned 
Compile for DSRPLUS 


glish (American) version 


E 
T 
on = Normal compile 
E 
T German (Austrian) 


This variable (LNO1) controls whether or not to compile an LNO1- flavored 
DSR. It is asserted by default, and also whenever DSRPLUS is asserted. 


i] 

i] 

! 

Modules utilizing LNO1 are: 

: DOOPTS NOUT 

voll = * bem 
( (ZVARIANT EQL 0) OR &VARIANT/2 ) 

' eeceece eseceeceeeoeeeeeoeesoeooesesessesa —TrrTrrreefeeffefeftefetfrrerereefefegftrererterreTrrrrerrrTrPTre 

This variable (DSRPLUS) controls compilation for the DSRPLUS program. 

ALL modules utilize DSRPLUS. 

COMPILETIME 


srplus = 
( ZVARIANT/2 ) 


Ooo 


wn 


i This variable (FLIP) controls compilation of FLIP features of DSRPLUS. 
It assures that FLIP features are compiled only on VMS systems. 


SSIESE 
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i Modules utilizing FLIP are many and various. 
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COMPILETIME 
flip = 
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15-Sep-1984 22:54:08 $ UA28: CRUNOFF .SRCJRNODEF .REQ: i (1) 


; 13 . ( ZVARIANT/2 AND %BLISS(BLISS32) ) 

ory 

: ROS? 1 i 4-6 ='16 CLEAR = English (American) version 

; Reels 1 ! SET = ; = German (Austrian) 

3 =6©ROSI 1 ! 32 = French 

; kO520 1 ! 48 = Italian 

; kROS21 1 COMPILETIME 

3; =6©ROS ¢ 1 German = ( %VARIANT/16 AND NOT ZVARIANT/32 AND NOT X%VARIANT/64 ) ; 
; ROS 1 COMPILETIME 

3; ROS24 1 French = ( NOT %VARIANT/16 AND ZVARIANT/32 AND NOT XZVARIANT/64 ) ; 
; kROS2S 1 COMPILFTIME 

5 Roe $ ; Italian = ( %VARIANT/16 AND %VARIANT/32 AND NOT ZVARIANT/64 ) ; 

> RO528 1 i End of RNODEF.REQ 


3 
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>  RO5S29 1 

; LROSSO 1 ZIF_ NOT DSRPLUS 

> ROS31 1 XZTHEN 

; RO ¢ 1 

>; ROS 1 MACRO 

> ROSS4 1 INDEX$_BADLOGIC = DSRINDEXS$_BADLOGIC %, 

3 R22 5 1 INDEXS_BADVALUE = DSRINDEXS_BADVALUE 2%, 

; RO 1 INDEXS_INSVIRMEM = DSRINDEXS_INSVIRMEM 2, 

; =ROS 1 INDEXS_LINELENG = DSRINDEXS_LINELENG %, 

; ROS3S8 1 INDEXS_NOREF = DSRINDEX$_NOREF i, 

; ROS39 1 INDEXS, OPENIN = DSRINDEX$_OPENIN i, 

: noece 1 INDEXS_OPENOUT = DSRINDEXS_OPENOUT i, 

; ROS41 1 INDEXS_TOOMANY = DSRINDEX$_TOOMAN i, 

; RODS 1 INDEXS_VALERR = DSRINDEX$_VALERR . 

; ROS4S 1 INDEXS_CANTBAL _ = DSRINDEX$_CANTBAL ’ 

> ROSG64 1 INDEX$_CLOSEQUOT = DSRINDEXS$_CLOSEQUOT %, 

; ROS46S 1 INDEXS_CONFQUAL = DSRINDEXS_CONFQUAL %, 

; ROS466 1 INDEXS_CTRLCHAR = DSRINDEXS_CTRLCHAR i, 

; ROS&? 1 INDEXS_DOESNTFIT = DSRINDEXS_DOESNTFIT %, 

> ROSSB 1 INDEXS_DUPBEGIN = DSRINDEXS_DUPBEGIN 2%, 

; ROSSD 1 INDEXS_EMPTYIN = DSRINDEXS_EMPTYIN 2%, 

; ROSSO 1 INDEXS_IGNORED = DSRINDEXS_IGNORED i, 

; RO55S1 1 INDEXS_INVINPUT = DSRINDEXS_INVINPUT i%, 

H EET: 1 INDEXS_INVRECORD = DSRINDEXS_INVRECORD %, 

; ROSSS 1 INDEX$S_LASTCONT = DSRINDEXS_LASTCONT i, 

> RO5SS4 1 INDEXS_NOBEGIN = DSRINDEXS_NOBEGIN 2%, 

; kROSSS 1 INDEX$_NOE = DSRINDEX$_NOEND z, 

; ROSS6 1 INDEXS_NOINDEX = DSRINDEXS_NOINDEX {%, 

; ROSS7 1 INDEX$_NOLIST = DSRINDEX$_NOLIST x, 

; kROSS8 1 INDEXS_OVERSTRK = DSRINDEXS_OVERSTRK 12%, 

; kROSS9 1 INDEX$S_SKIPPED = DSRINDEXS_SKIPPED {i%, 

; kRO560 1 INDEX$_SYNTA = DSRINDEX$_SYNTAX x, 

; kROS61 1 INDEXS_TEXFILE = DSRINDEXS_TEXFILE i, 

; kROS62 1 INDEXS_TOODEEP = DSRINDEXS_TOODEEP i, 

; ROS5S65 1 INDEX$_TOOFE = DSRINDEX$_TOOFEW i, 

; ROS64 1 INDEXS_TRUNCATED = DSRINDEX$_TRUNCATED 2%, 

; ROS6S 1 INDEX$_COMPLE = DSRINDEXS_COMPLETE 2%, 

3 RO566 1 INDEXS_CREATED = DSRINDEXS_CREATED i, 

; ROS67 1 INDEX$_IDE = DSRINDEXS$_IDENT x, 

; ROS68 1 INDEX$_PROCFILE = DSRINDEXS_PROCFILE 2%, 

; ROS69 1 INDEX$_TEXT = DSRINDEXS$_TEXT i, 

; kO570 1 INDEX$_TEXTD = DSRINDEX$_TEXTD x, 

; RO5S71 1 INDEXS$_TMS11 = DSRINDEX$_TMS11 z; 

; RO572 1 

: ROS75 1 2FI 

3 RO5S74 1 

3; ROS75 1 EXTERNAL LITERAL ; 

> ROS76 1 INDEX$_BADLOGIC, ! <internal logic error detected> 
; ROS77 1 INDEX$_BADVALUE, ! <"!AS* is an invalid keyword value> 
; kRO5S78 1 INDEX$_IN - | <insufficient virtual seagry? 
> kROS79 1 INDEXS$_LINELENG, ! <maximum Line length is 120 

; RO580 1 INDEXS$_NOREF , ! <page reference not found> 

; RO581 1 INDEX$_OPENIN ! <error opening '!AS' for input> 
; ROS82 1 INDEX$_OPE - ' <error opening ‘!AS' for output> 
; ROS8S 1 INDEX$_T ! <too many values supplied> 

>; ROS84 1 INDEX$_VALERR, ! <specified value is out of legal range> 
; kO585 1 INDEX$_C Ll, ! <can't balance last page> 


1$Sep-198e 01:06:39 yarett aieg32 v4.0-742, Page 
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; RO 1 INDEX$_CLOSEQUOT ! <missing sh 

; RO 1 INDEX$_CONFQUAL, ' <conflict ng quali fiers> 

; RO 1 INDEXS_CTRLCHAR : <i, jot tow ng Line contains contre characters - apna 
; ROS 1 INDEX$S_DOESNTF If, 1 <*! will not fit_at the current indentation sgvet> 

3 44 1 INDEX$_DUPBEGIN, { coup tents eile (BEGIN) = inserted as .XPLUS ()> 

; ROS91 1 INDEXS_EMPTYIN, ; <enee Y oe * le "!AS"> 

; A 1 INDEX$_ IGNORED : red 

: ROS93 1 INDEXS~INVINPUT i Sinvalid ioput. file format in file "!AS'> 

; RO59S 1 INDEXS"INVRECORD, | <invalid record type in file '!AS'> 

; ROS9S 1 INDEX$_LASTCONT, ! <can't Seperate continuation needing on last page> 

: std | 1 INDEXS_NOBEGIN, ! <.XPLUS (END) with no .XPLUS (BEGIN) - inserted os «XPLUS ()> 
3 ROee 1 INDEX$_NOEND ‘ <. RPL US (BeGin) has no corresponding «XPLUS (END) 

> RO598 1 INDEX$_NOINDEX, ! <no index information in fil 

; RO599 1 INDEXS$_NOLIST ! <parameter List not allowed> 

; ROG 1 INDEXS_OVERSTRK, ! <the following Line contains an overstrike sequence? 

; RO60: 1 INDEXS_SKIPPED, : <!UL reference!%S inside page range - ignored> 

; ses 1 INDEXS_SYNTAX ! <error parsing ‘!AS'> 

; RO6035 1 INDEXS_TEXFILE, ! <error processing Line !UL of TEX character file ‘!AS'> 
: ROO 1 INDEX$_TOODEEP, ! <maximum subindex depth exceeded> 

; RO60S 1 INDEX$_TOOFEW ! <not enough values supplied> 

; RO606 1 INDEXS$-TRUNZATED, | <string too long = truncated> 

; R0607 1 INDEXS_COMPLETE, : Serocessing complete ‘!AS'> 

; RO608 1 tee DEATED. : 'AS' created> 

; RO609 1 INDEX$_IDEN : CINDEX version !AD> 

; RO610 1 INDEXS “PROUT ive. i <processing file "!AS"> 

; RO611 1 INDEX$_TEXT ! <!AS> 

; R061 1 INDEXS$_ TEXTD, : 

; 9 Hf : INDEX$_TMS11; ! <output file full - continuing with file ‘!AS'> 


fontry text: "!AD'> 
| 
| 
| 
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NDXPAG == Output page formatting routines 


0615 1 

$16 1 XFI1 

61 1 

618 1 SWITCHES LIST (NOREQUIRE); 

0619 1 

0620 1! 

06 1 1 ! MACROS: 

6 § 1! 

06 1 

C624 1 MACRO 

0625 1 PUT_LINE (S) = 

06 g | $XPO_PUT (I10B = OUTIOB, STRING = S) %; 
0628 1! ye 

0629 1 ! EQUATED SYMBOLS: nae 

0630 1! 

0631 1 LITERAL 
0636 1 TRUE = 1 

0633 1 FALSE = 6; 

0634 1 
0635 1! 
0636 1 ! OWN STORAGE: 
0637 1! 
0638 1 OWN 
0639 1 BLANKS : INITIAL (CHSPTR (UPLIT (' 
0640 1 
0641 1 OWN 
0642 1 TMS_TMP SSTR_DESCRIPTOR (CLA 
0643 1 TMS_TITLE SSTR_DESCRIPTOR (STR 
0644 1 TMS_GUIDE SSTR_DESCRIPTOR (STR 
0645 1 “LEFT : SSTRIDESCRIPTOR (STR 
0646 1 S"RIGHT  : $STR_DESCRIPTOR (STR 
0647 1 TMS_TXT_FMT : SSTR_DESCRIPTOR (CLA 
0648 1 TMS_TELCTALE: SSTR_DESCRIPTOR (CLA 
0649 1 TMS_FOOT : $STRIDESCRIPTOR (CLA 
9650 | , _ TASIPAGE : SSTRIDESCRIPTOR (CLA 
0656 1 ! EXTERNAL REFERENCES: 
0653 1! . 
0654 17 EXTERNAL LITERAL 
0655 1 MAXLST, 
0636 1 TMSSTD, 
0657 1 MSPACE, 
0638 | TMSCOL; 
0660 1 EXTERNAL 
0661 1 CMDBLK : $NDXCMD, 
b66¢ 1 NDXVRL, 
0663 1 NDXVRP, 
0664 1 TIOB : $XPO_10B (), 
0665 1 PAGENO, 
0666 1 TMSTOF : $STR_DESCRIPTOR (), 
9667 1 TMSSIZ, 

1 CHRSIZ : REF VECTOR, 
9 1 LSTSTK : VECTOR, 
670 1 ALLOWD, 
71 1 LCOUNT, 


NNN ee 
Yrs ZZZuM 
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RUNOFF ..SRCIJNDXPAG.BLI; 


‘Pointer to blanks 


STRING = (0, 0)), 
8JINDEX/LEva96)"), 
2J'), 

, STRING = (0, 0)), 
» STRING = (0, 0)), 
* STRING = (0. 9)); 
» STRING = (0, 0)); 


Maximum subindex depth 
Average TMS character size 
TMS ‘em' space size _ 
Default TMS column width 


Command Line information block 
Length of version string 
CHSPTR to version string 
Output file 108 

Page number 

Top of file string | 

Ideal TMS file size in blocks 
Vector of character sizes for TMS 
Subindex stack 

Usuable Lines per page 

Number of Lines in Left column 


3 
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p-i RUNOFF .SRCJNDXPAG.BLI; 


< 
> 
ra) 
S 


; «(191 pore 1 RCOUNT, ' Number of Lines in right column 
: 136 pee? ! ; TCOUNT, ! Number of Lines in temp column 

> 194 bere 1 ! NOTE: The vectors and blockvectors below have two extra entries allocated 

; 195 8678 1} to avoid needing to subtract 1 all the time (for entry zero), 

$ 138 pert : and so that there will always be an available line at the end of the column 
; 198 679 1 LTYPE : VECTOR ! Left column Line types 

; 199 oB0 1 LLINES : BLOCKVECTOR C, STRSK_D_BLNI, ' Left column string descriptors 

; spo 681 1 RTYPE : ' Right column Line types 

; 201 6 ¢ 1 RLINES : BLOCKVECTOR C, STRSK_D_BLNI, ' Right column string descriptors 
; 4 6 1 TTYPE : V ! Temp column Line types 

; 3 bee ' TLINES : BLOCKVECTOR C, STRSK_D_BLNI; ! Right column for Last page 

3 $02 Bees 1 EXTERNAL ROUTINE 

: 06 06 1 RNOTMS : NOVALUE, ! Convert a Line from RUNOFF to TMS format 
; 207 0688 1 TMSPUT : NOVALUE, ' Put a Line to TMS yor e 

: 208 0689 1 RNOTEX : NOVALUE, : Convert a Line from RUNOFF to TEX 

; 209 0690 1 PADLIN : NOVALUE; ' Pad a Line with blanks 


| 
| 
| 
| 
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AG -- output Formatted page. 12-8071 382 93:08:38 CRUNOFF SRE NDAPAG.BL {ei 


ZSBTTL 'PUTPAG == output 
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ROUTINE VALUE: 
COMPLETION CODES: 


None 
SIDE EFFECTS: 
None 
” BEGIN 
LOCAL 


R_COL_LINES : REF BLOCKVECTOR C, STRSK_D_BLNI, 
Saar : REF VECTOR, 


11 formatted page: 
\¢ GLOBAL ROUTINE PUTPAG (LAST) : NOVALUE = 
14 | 
i } FUNCTIONAL DESCRIPTION: 
" This routine writes a formatted page to the output file. 
19 ; FORMAL PARAMETERS: 
1 LAST - TRUE if last page 
§ ! IMPLICIT INPUTS: 
5 i ALLOWD = number of Lines on this page 
6 ! LLINES - left column Lines 
7 ' RLINES = right column Lines 
8 : TLINES = temp column Lines (used for Last page) 
, } CMDBLK = command Line information block 
31 i IMPLICIT OUTPUTS: 
$8 ' 
3 ! 
34 ! RCOUNT - set to zero 
35 ALLOWD = set to value of CMDBLK CNDX$G_LINES_PAGEJ 
i 
} 
i 
i 
i 


Sob arunese seo 


SSNS ARUN AS SENOS See 


a- 


IDEAL = TRUE; 
PAGENO = .PAGENO + 1; 


IF .CMDBLK CNDX$V_TELLTALE] 
THEN 


SN NNN NN SSN NSS NSIS ISIS NIOOOOOOOOSO CoO 
WINAMP RIPPON NINN 2 2 OS SH DOODVOOOCOCOCOOOOOOOOOO x 


SOS MOO RUN HOODOO NOU EWM O00 NOME WN ODS NM FUN ODO Ode vv 


| 

| 

| 

LCOUNT - set to zero 
| 

| 

! Generate telltale heading | 


DAA 


BEGIN 
TELLTALE_HEAD (); 
IDEAL = FALSE; 


IF .CMDBLK CNDX$H_LAYOUT) EQL TWO_COLUMN 


SANS 


ePruw 
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61 

66 74 

6 74 THEN 

64 744 BEGIN eae | 
65 2 VJUST_COL (LCOUNT, LLINES, LTYPE); ' Vertical justify left column 
§$ 74 IF .LAST 
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NDXPAG == Output page formatting routines 1 
PUTPAG == output Formatted page. 1 


“520-198 91:06:32 AX=11 Bliss-32 ee Eh | 


RUNOFF .SRCJNDXPAG.BLI; 


THEN 
BEGIN 


i Doing Last page. 
} Right column stuff is stored in temp column after page is balanced 


VJUST_COL (TCOUNT, TLINES, TTYPE); 


R_COL_LINES = TLINES £0,0,0,0,03; 
R-COL-TYPE = TTYPE COJ; 


ELSE 
BEGIN 


: Not Last page 
VJUST_COL (RCOUNT, RLINES, RTYPE); ' Vertical justify column 


R_COL_LINES = RLINES (0,0,0,0,0); ! Set ointers to Li 
papers ve = RTYPE Fo § and A. types phases 


END; 


Vertical justify column 


Set up pointers to Lines 
! and Line types 


INCR_ I FROM 1 TO .ALLOWD DO 
BEGIN 


BIND 
L = LLINES C.1, 0,0,0,0] : SSTR_DESCRIPTOR (); 


LOCAL 
LEN, 
PTR: 
LEN = .L CSTRSH_LENGTH); 


' 

Change NULLs to COMMAs (or spaces if SEPARATE) 
PTR = CHSFIND_CH (.L CSTRSH_LENGTH], .L CSTRSA_POINTER], 0); 
IF NOT CHSFAIC (.PTR) 

THEN 

BEGIN 

a 2CrOSLs CNDX$H_LAYOUT] EQL SEPARATE 

CHSWCHAR (2C° °, PTR) 


CHSWCHAR (ZC°,', .PTR); 


If SEPARATE format 

- replace with a blank 
Otherwise: 

Replace with a comma 


—emr me 


END; 
IF .CMDBLK CNDX$H_LAYOUT) EQL TWO_COLUMN 
BEGIN 
Two column output 
BIND 
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16-Sep-1984 01:06:3 AX-11 Bliss-32 V4.0-74 P 3 
PUTPAG == output formatted page 1-8ep-19 4 93:09:72 ERUNOFF SRE NDXPAG.BLI; = 3} 

0 


1 FROM .L_CSTRSH_ LENGTH] TO 2 DO 
i CHSRCHAR (.PTRY NEQ 2C° ° 


EXITLOOP 
SE | 
| 


DECR 


000 
| 
Py = . . ’ . o : Py 
é O86 4 | R R_COL_LINES C.1, 0,0,0,0) SSTR_DESCRIPTOR () | 
3 3 ° 8 2 Change NULLs to COMMAs | 
; 0 8 10 4 PTR = CHSFIND_CH (.R CSTRSH Leweri). »R CSTRSA_POINTER], 0); 
$ 1 1} : IF NOT CHSFAIC (.PTR) THEN CHSWCHAR (ZC',', .PTR); 
: : OBr§ 4 SELECTONE .CMDBLK CNDXSH_FORMAT] OF | 
3 4 0814 4 SET | 
; 5 0815 4 
: § te 4 CTMS11_A, TMS11_E]: 
3 7 5 BEGIN 
3 8 pate 2 ! 
: 9 081 ! TMS11 output 
: Ref bBo, 8 if .R_COL_TYPE C.1] EQL GUIDE 
3 a6 Ba56 ? hits 
3 4 082 GUIDE_HEAD (R) 
3 eed 0824 5§ Ss 
; 45 0825 5 RNOTMS (.R CSTRSH_LENGTHJ, .R CSTRSA_POINTERJ, R); 
: 346 bBs$ 5 
3 347 0827 4 END; 
3; 348 0828 4 
; 349 bee? 4 CTEX): 
; 350 0830 2 BEGIN | 
; 351 0831 ! 
3 $26 bess 5 ! TEX output 
3 $2 0833 5 ! 
3 54 0834 5§ IF .R_COL_TYPE C.1] ECL GUIDE 
; 555 0835 5 TH 
; 356 0836 5 GUIDE_HEAD (R) 
s Sar 0837 5 ELSE 
; 358 0838 5 RNOTEX (.R CSTRSH_LENGTH], .R CSTRSA_POINTERJ, R); 
3 SOP 0839 5 
: 360 0840 4 END; 
: ee! 0841 4 
3 o¢ pees 4 CDSR): 
:; 36 0843 5 BEGIN 
; 364 0844 5 ! 
; 23 peer 5 } RUNOFF output 
; 4 88 ; SSTR_APPEND (STRING = R, TARGET = L); ! Concatenate right column to left | 
: 369 4 ! 
3 76 2 Remove trailing spaces from Line | 
: 2 ; LEN = .L_CSTRSH_LENGTH); | 
: 7 2 PTR = CHSPLUS (.L CSTRSA_POINTER], .LEN - 1); 
; 6 
$ 6 


SNS o 
SOOONOUSE 
SOOoooooooooooao 
So ttn ty ttn ty tr te teed $4 
MAMI UIUTUTU & Ss 
—OOONOULSWN—O 


GIN 
LEN = .LEN = 1; 


Ss 


3 
NDXPAG == Output page formatting routines 1b-5e -1984 01:06:3 AX-11 Bliss-32 V4.0-74 Page 
PUTPAG -- output Formatted pages 1 ~Sep-19 4 95:09:78 ERUNOFFeSRe NDXPAG.BLI; 3 


~sS 


DN eee 


; 38 0863 § PTR = CHSPLUS (.PTR, -1); 

; = 6 END; 

> «384 peed 4 END; 

; Se o2 é TES; 

ies ~ 

: 389 6 , 

: 390 $858 4 IF NOT ((.CMDBLK CNDXS$H_LAYOUT] EQL GALLEY) AND (.LTYPE (.1] EQL FILL)) 
: 33) O82 i THEN GIN 

: 39 73 4 1 

: 94 54 4 ! Not doing GALLEY output 

; 32 th ? or doing galley output and Line type is not FILL 

: dA 0877 : SELECTONE -CMDBLK CNDXS$H_FORMAT] OF 

: 399 $879 4 

Be tmehd chy MSE 

: 40 088¢ 5 

: 40 08835 5 ! TMS11 output 

: 404 0884 5 i 

; 405 0885 3 IF gtTVPe C.1] EQL GUIDE 

: 407 0887 6 BEGIN 

; rts r4 ° IF .CMDBLK CNDXS$H_LAYOUT] EQL GALLEY THEN IDEAL = TRUE; 
: 410 0890 6 GUIDE_HEAD (L); 

: 41 0892 5 ELSE 

F 418 0893 6 

; 414 0894 6 IF .CMDBLK CNDX$H_LAYOUT] EQL GALLEY THEN IDEAL = FALSE; 
: ci 0896 : RNOTMS (.L CSTRSH_LENGTH], .L CSTRSA_POINTER], L); 

: 41 03898 5 : 

: <i 0899 3 IF; CMDBLK CNDX$H_LAYCUT] EQL TWO_COLUMN 

: 421 0901 6 BEGIN 

3 63¢ 0902 6 

; 4 0903 6 : Two column output - append right column to left 

: O88 $908 & BIND 

 - 6 206 6 R = R_COL_LINES [.1, 0.0,0,0] : SSTR_DESCRIPTOR ‘); 
; é 8 g 8 é $STR_APPEND (STRING = $STR_CONCAT ('/u/u', R), TARGET = L); 
: 2% 310 8 sats 

: $STR_APPEND (STRING = TMS_LEFT, TARGET = L); 

: a3 a 2 TMSPOT (.L CSTRSH LENGTHS; .L ESTRSA_POINTER], OUTIOB, .IDEAL); 
te BRE : 

a a 

; £39 319 

; 438 0918 ! TEX output 


——-— 


NDXPAG == Output page formatting routines 13-50 Sep-1984 AX-11 Bliss-32 V4.0-7 Pa 5 
PUTPAG == output Formatted page $ep-1986 93: 88: 3 RUNOFF .SRCJNDXPAG. BL: “ 3 


; 439 919 

: 440 9 if .LTYPE C.1] EQL GUIDE 

> 661 921 H 

> bb 9 ; GUIDE_HEAD (L) 

: 44 9 ELS 

; aad 3 4 RNOTEX (.L CSTRSH_LENGTH], .L CSTRSA_POINTERI, L); 

> 446 09 g PUT_LINE ($STR_CONCAT (L, "\hfilL")); 

: G47 927 4 END? 

> 448 0928 4 

: 449 929 4 (DSR): 

: 450 930 4 1 
3; 451 931 4 ! RUNOFF output | 
: 43¢ 09 é 4 i 

> 45 0933 4 PUT_LINE ((.LEN, .L CSTRSA_POINTER])); ! Write the Line 
: 454 ate 4 

: 455 0935 4 TES; 

: 456 0936 4 

3 4657 0937 4 IDEAL = FALSE; 

: 458 0938 3 END; 

: 459 0939 END; 

: 460 0940 

> 461 0941 IF .CMDBLK CNDX$H_LAYOUT] NEQ GALLEY 

3 re 4 094 THEN 

: 46 094 BEGIN 

; 4646 ! 

: ; Not doing GALLEY output 

; 4 SELECTONE .CMDBLK CNDX$H_FORMAT) OF 

3 rt ; SET 

: 0 C1™MS11_A, TMS11_E): 

1 4 BEGIN 

: § 4 Write page break format for TMS11 

; 5 4 CAL 

; 6 4 JUSTIFY; 

: 8 4 JUSTIFY = CIF -PAGENO THEN TMS_RIGHT ELSE TMS_LEFT); 

; 9 4 $STR COPY (TARGET = TMP, 

; 60 4 STRING = $STR _CONCAT (THS_FOOT, SSTR_ASCII (.PAGENO), ‘CfrJ', .JUSTIFY, TMS_PAGE)); 
; é 4 TMSPUT (.TMS_TMP CSTRSH_LENGTH], .TMS_TMP CSTRSA_POINTER], OUTIOB, FALSE); 
: i, : 

3 CDSR): 

; f | RUNOFF output 

; ° iF (NOT .LAST) THEN PUT_LINE (".PAGE"); 

: CTEX): 

; 4 BEGIN 

3 4 : 

; 4 

. 4 


. TEX output 


NDXPAG == Output page formatting routines 


3 
PUTPAG == output formatted page met 94:88:72 RUNOFF SAEINDAPAG OL fe — (3 


RUNOFF .SRCJNDXPAG.BLI; 


< 
Q 


3; 4 976 4 PUT_LINE ("\ "D5 

: 63 $s ¢ sh me spew 

> 499 979 4 penser: 

: 200 O38 ? Write out right column 

; 508 a8 4 PUT_LINE (S$STR_CONCAT (R_COL_LINES [.1, 0,0,0,0], ‘\nfill')); 
; 20% 0984 4 PUT -LINE (SSTR_CONCAT ('\botpage {Index-', S$STR_ASCII (.PAGENO), '}')); 
: 206 0986 f 

3; 507 098 TES; 

; 08 986 

; 509 0989 END; 

; 510 0990 

s $11 0991 LCOUNT = 0; 

: 21g 0999 RCOUNT = 0; 

: 51 099 ALLOWD = .CMDBLK CNDX$G_LINES_PAGE]; 

3; 514 0994 1 END; 


-TITLE NDXPAG NDXPAG == Output page formatting routine 
$s 

-IDENT \v04-000\ 

-PSECT SPLIT$,NOWRT,NOEXE,2 
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20 20 20 20 00000 P.AAA: .ASCII \ \ ; 
SB 6C 2F SB 45 44 4E 49 SD 38 31 20 37 66 58 00004 P.AAB: .ASCII \Cf7p18)INDEX/LCva96I\ : 
5D 32 31 70 37 66 5B 00018 P.AAC: .ASCII \Cf7p12]\ : 
6C Hi OOO1F P.AAD: <ASCII \/L\ : 
te F 00021 P.AAE: ASCII \/r\ : 
“ oF et 000 3 P[AAG: <ASCII \/u/u\ : 
6C 6C 69 66 68 5C 00027 P.AAJ: “ASCII <92>\hfiLL\ : 
5D 72 66 5B 0002D P.AAM: <ASCII \CfrJ\ : 
45 47 41 30 gE 00031 P.AAO: ASCII \.PAGE\ : 
6—E 6D 75 6C 6F 63 64 6E 6 C 00036 P.AAP: .ASCII <92>\endcolumn\ j 
6C 6C 69 66 68 5¢ 90040 PAAR: ASCII <92>\hfiLL\ : 
78 65 64 6E 49 7B 20 65 67 61 70 74 6F 62 5C 00046 P:AAV: <ASCII <92>\botpage {Index-\ : 
$b 00056 P.AAW: ASCII \}\ : 
00000000" 00000 BLANKS: .ADDRESS P.AAA : 
" 0000 9004 THS_THP: . WORD 0 : : 
00080005 8008 i : 
0014 O000C TMS_TITLE 
01 0 0006 “BYTE 14, 1 : 
00000000' 01 “ADDRESS P.AAB : 
000 14 TMS_GUIDE: 
1 1 BIE 1, 1 : 
0000088" Mitts “ADDRESS P.AAC : 


3 
NOXPA NDXPAG == Output page formatting routines 18-5 198% 06:39 Ax-11 iss- 4.0-74 
out Yer — 1 > 3B 04:96:3 Oh let aple’s 


v04-000 PUTPAG == output formatted page -Sep-1 5 RUNOFF ..SRCJNDXPAG.BLI; 
0002 O001C TMS_LEFT: : 
1 1 “BYTE 14, 1 : 
00809006" 20926 "ADDRESS P.AAD ; 
0 4 TMS_RIGHT: : 
1 Brie 14,1 
00900098" a0028 “ADDRESS P.AAE ; 
0000 0002C THS_TXT FMT: ; 
oobboo8S $0085 atone Ot? 3 
800 869 TMS_TELLTALE: ; 
WORD 0 : 
02 0 00036 “BYTE 14, 2 : 
0000000 0005 LONG 0 : 
0000 0003C TMS_FoOT gaits ; 
02 0 0003 “BYTE 14, 2 ; 
00000000 0004 LONG 0 ; 
0000 00044 TMS_PAGE a : 
00060000 So048 Pole yale 
0004 O004C SSTRSSTRINGO: : 
01 3 OGO4E "BYTE 14, 1 : 
00000000" 0005 “ADDRESS P.AAG ; 
0006 00054 SSTRSSTRING!: , : 
0E 00056 ; 14, 1 : 
00000000" 00058 "ADDRESS P.AAJ ; 
0004 0005¢ SSTRESTRING2: , ; 
01 O€ 0005E “BYTE 14, 1 ; 
00000006" 0006 “ADDRESS P.AAM ; 
0005 00064 SIOBSOUTPUT: | : ; 
01 OE 00066 : 14, 1 : 
00000000" 00068 “ADDRESS P.AAO ; 
000A 0006C S1OBSOUTPUT: | ‘ ; 
01 oF O006E “BYTE 14, 1 : 
00000000' 00 "ADDRESS P.AAP ; 
0006 74 SSTRSSTRING!: P ; 
01 0 0076 "BYTE 14, 1 ; 
00 0900 * 0007 "ADDRESS P.AAR : 
010 O007C $STRSSTRINGO: : 
1 07 BYIE 14,1 
00809006" O9086 ;ADDRESS P! AAV : 
0001 00084 SSTRSSTRINGZ: 3 
1 ) ee ; 
00900098" ttt "ADDRESS P.AAW 2 


NDXPAG 


v04-000 PUTPAG == output formatted page 


NDXPAG == Output page formatting routines 


1 
1 


3 

-Sep-1984 06:3 AX-11 Bliss-32 V4.0-74 Page 28 

~3007 138i 04:06: 32 RUNOFF RCINDXPAG.BLI: . 3 

SSTRSSTRING= TMS_LEFT 

SSTRSSTRINGO= TMS FOOT 

SSTRSSTRINGG= TMS ~PAGE 

SSTRSTARGET= TMS” TMP 
.EXTRN DSRINDER$_BADLOGIC 
SEXTRN DSRINDEX$~BADVALUE 
SEXTRN DSRINDEXS~INSVIRMEM 
SEXTRN DSRINDEXS-LINELENG 
-EXTRN DSRINDEXS-NOREF 
“EXTRN DSRINDEX$-OPENIN 
*EXTRN DSRINDEX$~OPENOUT 
SEXTRN DSRIND X$TOOMANY 
“EXTRN DSRINDEX$-VALERR 
SEXTRN DSRINDEX$~CANTBAL 
-EXTRN DSRINDEX$~CLOSEQUOT 
-EXTRN DSRINDEX$~ CONF QUAL 
-EXTRN DSRINDEX$~CTRLCHAR 
SEXTRN DSRINDEX$_DOESNTFIT 
-EXTRN DSRINDEX$~DUPBEGIN 
-EXTRN DSRINDEXS-EMPTYIN 
-EXTRN DSRINDEX$~ IGNORED 
SEXTRN DSRINDEX$~INVINPUT 
SEXTRN DSRINDEX$~INVRECORD 
-EXTRN DSRINDEX$-LASTCON 
“EXTRN DSRINDEX$-NOBEGIN 
-EXTRN DSRINDEXS$~NOEND 
ZEXTRN DSRINDEX$-NOINDEX 
“EXTRN DSRINDEXS-NOLIST 
-EXTRN DSRINDEX$~OVERSTRK 
SEXTRN DSRINDEX$~ SKIPPED 
-EXTRN DSRINDEXS-SYNTAX 
SEXTRN DSRINDEXS-TEXFILE 
“EXTRN DSRINDEX$~TOODEEP 
“EXTRN DSRINDEX$~TOOFEW 
SEXTRN DSRINDEX$~ TRUNCATED 
“EXTRN DSRINDEXS~ COMPLETE 
-EXTRN DSRINDEX$~ CREATED 
SEXTRN DSRINDEXS~ IDENT 
SEXTRN DSRINDEXS~PROCF ILE 
-EXTRN DSRINDEXS-TEXT, DSRINDEXS_TEXTD 
“EXTRN DSRINDEXS-TMS11 
.EXTRN MAXLST, TASSTD, MSPACE 
.EXTRN TMSCOL, CMDBLK, NDXVRL 
-EXTRN NDXVRP, OUTIOB, PAGENO 
-EXTRN TMSTOF, TMSSIZ, CHRSIZ 
.EXTRN LSTSTK, ALLOWD, LCOUNT 
.EXTRN RCOUNT, TCOUNT, LTYP 
~EXTRN LLINES, RTYPE, RLINES 
“EXTRN TTYPE, TLINES, RNOTMS 
“EXTRN TMSPUT, RNOTEX, PADLIN 
SEXTRN XSTSAPPEND, STRSFAILURE 
“EXTRN XSTSJOIN, XPOSPUT 
“EXTRN XPOSFAILURE, XSTSCOPY 
“EXTRN XSTSASCII 
.PSECT $CODES$,NOWRT,2 


48 | 
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NDXPAG NDXPAG == Output page formatting routines 16-Sep-1984 :06: AX-11 Bliss-32 V4.0-74 Pa 
v04-000 PUTPAG == output formatted pages 1e-8ep- 38 94:98:72 RUNOFF .SRC JNDXPAG.BLI; = 3 
OFFC 00000 .ENTRY P TPAG, Save R2,R3,R4,R5,R6,R7,R8,R9,R10,- ; : 
SE 08 C2 0 SUBL2 #8, SP : : 
1 DO 00 MOVL #1, IDEAL : ; 
09 000000006 ep C0OIO0E FF de BORE beet BACEND at 1$ : 
Bo000000V EF Q fe O16 CALLS #0, TELLTALE_HEAD 3 : 
01 000000006 FF 81 O1F 1$: CMPW GMOBLK+6, #1 : 3 
90000006 EF 9F 90098 PUSHAB {TYP 
099000006 EF i 0 E PUSHAB LLINES : : 
G ai F PUSHAB Lcou : ; 
00000000v Ef 3 FB O3A CALLS #3, VJUST_COL : : 
9 04 AC f 0041 LBC —_ LAST : ; 
000000006 EF 9F 00045 PUSHAB TTYPE : ; 
990000006 EF 9F 00048 PUSHAB TLINES : : 
000000006 a 9F 00051 PUSHAB TCOUNT : ; 
00000000v Ef 3 FB 0047 CALLS #3, VJUST_COL ; ; 
9 000000006 EF 9E 00 3E MOVAB TLINES, R~COL_LINES : F 
5a 000000006 EF H 9065 MOVAB TYPE, r_COL_TYPE : : 
900000006 EF 9F OO06E 28: PUSHAB RTYPE : : 
00000006 EF 9F 00074 PUSHAB RLINES : ; 
000000006 EF 9F OO07A PUSHAB ¢ UNT : F 
00000000v Ef 03 FB 00080 CALLS #3, VJUST_COL : ; 
9 000000006 EF 9E 00087 MOVAB RLINES, R7COL_LINES : : 
5A 00000000G_ EF 9 OO8E MOVAB TYPE, R_COL_TYPE ; ; 
5B 000000006 FF DO 00095 3s: MOVL ALLOWD, R11 : : 
0203 31 §009e BRue ($28 ; : 
54 ooovo000cere’ E 99041 4$: MOVAQ LLINESCIJ, R4 ; ; 
56 64 3¢ OO0A9 MOV7WL (R4), LEN : ; 
57 04 Ad 9E O00AC MOVAB. 4(R4S, R7 ; : 
00 87 64 00 3A 00080 LOCC 3=—«_s#0,,_-« (R44), @O(R7) ; 3 
2 12 00085 BNEQ 5$ ; ; 
1 p04 00087 CLRL sR} ; : 
55 1 09 00B9 5$: MOVL 1, PTR : : 
11. 13 000BC BEQL ©7$ : : 
03 000000006 a 81 O0BE CMPW  CMDBLK+6, #3 ; : 
5 if 00C BNEQ 6$ 3 § 
65 20 9 9c? MOVB #32, (PTR) : ; 
11 OQOOCA BRB : : 
6 2c a9 Bee 6s: MOVB #44, (PTR) : : 
1 000000006 EF 8B CF 7$: CMPW 386s CMDBLK+6, #1 : : 
67 12 0 BNEQ 1 ; : 
52 6943 7E 0000. MOVAQ (R_COL_LINES)CIJ, R2 ; : 
04 B62 6 3A nya LOCC #07 (RZ), a4(R2) : : 
2 E1 BNEQ 3 3 
D4 E CLRL R1 3 3 
55 1 Db €5 8$: MOVL 1, PTR ; 3 
03 1 E BEQL ; : 
$5 C 3 ‘_OEA MOVE #44, (PTR) ; : 
0 000000006 FF OOED 9$: CVTWL ©CMDBLK+4, RO F : 
. OH Be ay he 7 7 
03 $6 B1 OO0F9 CMPW RO, #3 5 : 


000000006 


00000000v 


000000006 


000000006 


03 


02 
04 
G2 
02 


03 
03 


58 


NDXPAG == Output page formatting routines 
PUTPAG == output Formatted pages 


o 
> 


oO 
Pe "WUDOM WO MOWED nD 


04 


04 


000000006 


uv 
BEM EMM NO OWI OS PUT WHO MUMPININIOWN 
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or> 


COL_TYPE)CII, #3 


COL_TYPE)CIJ, #3 


§ GUIDE HEAD 


STRSFAILURE 
=(SP) 
#°M<R2,R4> 
=(SP) 

#5, XSTSAPPEND 
(R4), LEN 

LEN, (R7), R1 
=1(R1), PTR 
(R4), I 


(PTR), #32 


#2 
$ 


BLK+6, #4 


“fo 


§ 
1 

rl 

; 
TYPECIJ, #2 

$ 

CROBLK +4, RO 

0$ 

6$ 

RO, #3 
TYPECII. a3 

Ri, 21$ 


#1, IDEAL 
R4 


WIDOW" DOD 
bed 


S 


AX=11 Bliss-32 V4.0-74 
RUNOFF .SRCJNDXPAG.BLI; 


S 
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NDXPAG NDXPAG == Output page formatting routines 16-Sep-1984 01:06: AX-1 iss- .0- ND 
v04=-000 PUTPAG == output Formatted payee 1$-Se0-1984 94:09:72 YRUNOFFC SRE NDRPAG OL, — 3) v04 

00000000V EF 04 FB 1B4 CALLS #1, GUIDE_HEAD : ; 
1 1BB BRB 24§ > 0885 ; 
02 21 E9 0O1BD 228:  BLBC Ri, 238 + 0894 : 
8 D4 O0IC CLRL ~—_ IDEAL : ; 
54 DD 001C2 238:  PUSHL R4 + 0896 ; 
7E ae Tae tithes posi. tne, CSP) : 
000000006 EF 83 i) oiC3 CALLS #3, RNOTMS : ; 
01 007000006 i 8} ab 24$: CHU cBBLK+6, " + 0899 ; 
6943 7F 09109 PUSHAQ (R_COL_LINES)CI) : ; 
00000000° FE OF 10 PUSHAB SSTRESTRINGO : — ; 
000000006 _ EF 2 FB OOIE CALLS #2, XSTSJOIN : ; 
000000006 EF OF OO1E PUSHAB STRSFAILURE : ; 
E D4 OO1EF CLRL = =(SP : ; 
11 BB OO1F1 PUSHR #*M<RO,R4> : 3 
43 D4 O01F3 CLRL os : ; 
000000006 _ EF 05 FB 0018S CALLS #5, XSTSAPPEND : ; 
000000006 i OF Orr 25$: PUSHAB STRSFAILURE + 0911 : 
E D4 00 0 CLRL = = (SP) : : 
54 DD 00204 PUSHL R4 : : 
00000000' cf 9F 00206 PUSHAB $STRSSTRING : ; 
: D4 0020C CLRL = = (SP : : 
000000006 EF 0S FB 00 OF CALLS #5, XSTSAPPEND : : 
58 DD 0021 PUSHL IDEAL + 0912 ; 
000000006 EF 9F 00217 PUSHAB OUTIOB : : 
67 pp 0021D PUSHL  (R7) : : 
7E 64 3C OOOTF MOVZWL (R4), (SP) : ; 
000000006 EF 04 FB 00222 CALLS #4, TMSPUT : ; 
77 «(11 00829 BRB 31§ : 0877 ; 
04 30 B1 002 B26$: CMPW RO, #4 + 0915 : 
: 12 00226 BNEQ 29 : : 
03 000000006EF 43 Dt 00 0 CPL LTYPECII, 3 : 0920 ; 
54 DD 00 3A PUSHL  R4 : 0922 ; 
00000000v_ EF 01 FB 00 ¢ CALLS #1, GUIDE_HEAD : : 
OE 11 0034 BRB 28$ : 3 
54 DD 00245 278 PUSHL > 0924 : 
67 bp 0247 PUSHL (R7) : : 
7E 64 3C 00249 MOVZWL (R4), -(SP) : ; 
000000006 _ EF 03 FB 00 4¢ CALLS #3, RNOTEX ; : 
00000000' EF 9F 00253 288 PUSHAB $STRSSTRING! > 0926 : 
000000006 EF 3 Oe OS ee Cte «a3. KSTSUOIN : ; 
MOVL RO. I0B$+ : ; 

Mindat 6 EF $6 06 6 nov RO, $ rf : 
01 5 B1 00268 29$:  CMPW RO, #1 + 0929 ; 
5 $ BNEQ 31§ ; : 
6E 8 MOVW LEN, $IOBSOUTPUT : 0933 ; 
02 AE OF 7 MOVB #14, $IOBSOUTPUT+2 : ; 
AE 1 7 MOVB = #1, SIOBSOUTPUT+3 : ; 
4 AE 67 p 7B MOVL (R?), SIOBSOUTPUT +4 ; ; 
060000006 EF 3 7F MOVAB $ oBsouTPUT. 108$+68 : : 
C0000000G_ EF 0 86 30$: MOVB #7, I0BS+44 : : 
000000006 EF F PUSHAB XPOSFAILURE : : 
E p4 9 CLRL = = (SP) : : 
000000006 EF 9F 0029 PUSHAB 10B$ : ; 


dD 4 
NDXPAG NOXPAG == Output page formatting routines 16-Sep-1984 :06:3 AX-11 Bliss-32 V4.0-74 p 
v04-000 PUTPAG == output Formatted page 1228681382 93:09:72 YRUNOFFeSRe NDXPAG.BLI; ren Ri 
000000006 EF 3 FB i CALLS #3, XPOSPUT ; 
D4 OOA2 31$: CLRL I : 
FDF7 53 01 B Fi A 338: ACBL R11, #1. I, 4$ : 
4 000000006 FF B1 OO2AA CMPW GMDBLK+6, he : 
ores 3 83 cues : 
50 000000006 Ef 2 00086 33$:  CVTWL CMDBLK+4, RO ; 
: SB geen Re : 
0088 31 002c 348: BRW 9$ ; 
03 30 B} 0 C 5$: CMP RO, #3 : 
09 000000006 EF £9 § CA BLBC + PAGENO, 36$ : 
53 00000000" a 9 0 Dt ROVAB TMS_RIGHT, JUSTIFY : 
53 00000000' EF 9E 002DA 355: MOVAB TMS_LEFT, JUSTIFY : 
000000096 fF dD Te PAGENG ; 
7E 090 F 3C 00369 MOVZWL #2307, -(SP) : 
000000006 EF 03 FB 00 EE CALLS a8 XS$TSASCII ; 
00000000' ai OF O02F PUSHAB $STRSSTRING4S : 
00000000" &F 9F o0s6D PUSHAB SSTRSSTRING2 
EO DD 00 AS PUSHL : 
00000000" Fr 9F 00305 PUSHAB $STRSSTRINGO : 
000000006 EF 5 FB 0030 CALLS #5, XSTSJOIN : 
000000006 i OF 00318 PUSHAB STRSFAILURE : 
E D4 0031 CLRL = SP) : 
00000000° EF 9F OO31A PUSHAB $STRSTARGET : 
eae GaN 7 
000000006 EF 68 FB 003 4 CALLS #5, XSTSCOPY ; 
000000006 EF br on85p Ste taB ser : 
00000000" EF pp 003 : PUSHL 1M 4 : 
7E 00000000" EF 3C 00339 MOVZWL TMS"TMP, -(SP) : 
000000006 EF 04 FB 00340 CALLS #4 p ; 
01 a he 
12 1 09 4D BNEQ : 
F4 04 AC es O34F BLBS LAST, 38$ : 
000000006 EF 00000000" | EF ae : 23 ROVAB $10BS0UTPUT. 10B$+68 : 
04 50 B1 00361 40$:  CMPW RO, #4 : 
E1 * 8 64 BNEQ RBs ; 
900000006 EF 00000000" FF SF 00566 MOVAB — $J0BSOUTPUT. 10BS+68 : 
000000006 ‘EF 7 96 00371 MOVB of +44 : 
000000006 EF oF 0 18 PUSHAB KPOSF AILURE : 
000000006 ai oF 5 PUSHAB 1088 : 
000000006 Ef 3 FB 86 CALLS #3, XPOSPUT : 
4 000000006 i i 8D wOvL ALLOWD, R4 
1 BRB 42$ : 
00000000' EF 3 38 41$:  PUSHAB $STRSSTRING! : 
6943 F F PUSHAQ (R_COL LINES)C13 : 
000000006 EF 02 FB OO3A CALLS #27 XSTSJOIN 


S 


< 
2 


ll ee ee el ee el el el el el i ee ee ee eed et ed 


] 
| 
; - Page 33) 
- :06: AX-11 Bliss-32 V4.0-74 ag ; | 
-- Output page formatting routines 18-Sep-1 4 06: pet AS PEL ial ‘ 
WOee 060 nis -- eutut Fopmatted page 14-Sep 1382 93:08 6 al | 
888888086 0 a MP = 
0000G EF 9F 003B6 PUSHAB XPOSFAILURE ; | 
_— BF p4 BC cURL i988, ; | 
000000006 EF 9F O03BE | 
CALLS #3, XPOSPUT 
co 000000006. ff oH BS cos, ltde fa: FP fo 
E D4 - ; 
PUSHL  PAGENO 
mms RB) Ba FAR aon eS 
-rcapeangen ae 00000000' i oF 0 es PUSHAB $ tRES TRING? : 
D OO3E PUSHL ; 
00000000' SF O3€B PUSHAB STRSSTRINGO ; 
000006 EF 3 FB OO3F1 CALLS #3, XST$J i ; 
itdittdt EF 50 O3F8 MOVL RO. 10B$+6 
80 00006 EF 3 90 OO3FF 43$ MOVE #7, I[0B$+44 
oop 000000006 EF OF 00406 PUSHAB KPOSF AILURE 
E D4 0040C - 
40E PUSHAB 10B$ 
000000006 EF sence 5S Pb tik CALLS iS, XPOSPUT F oes 
Seeoanage Efe Seuge “SAE eau : 
000000006 se 
000000006 EF 00000000G_ EF bd 00427 MOVE CMDBLK+20, ALL : 099 


; Routine Size: 1075 bytes, Routine Base: S$CODE$S + 0000 
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SS et 
Mwy 
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wv 
oa 
© 
a 
Ne 
Tee 
Plies 
‘os 
om 
se 
wo | 
><a | 
a 
Nx | 
Al} 
‘2a 
orn | 
"nun 
—x 
Nn 
@me- 
“ 
uu bed 
-oO Cc 
‘2 e€ 
<p> 3 
<a “4 
>w o 
v 
ao 
. 
own ~ °o 
MN iT] - ~ 
7 «. - LS) 
or. w cr aw 
oo > wn >u 
oo oe ill be | oxo 
Mm <= —_ ~uow 
or 2 cov 
oO ~~ 3s~ @ 7 
wv z eo o2oa> [om 
coco Vv v 2 
oo - - Ve id a 
} a ~ eeow a 
se ~ — cca ‘ 
aa nn Co _—— >~ ao 
—weoe@ - w > eel ‘ 
mm ca. 4 
‘6 &> °o ccc a) 
wove Se a ee& Ee a 
--—- — 1 33535 - 
ow oO dimtieend ” 
v7oO . ooo 
v a vvv . 
~ — a) 
— => Se ete oe 
—-n a ooo a 
ww (=) 
wn va ~ “vnuw _ 
a oe 2 nnn ve 
c —_— @2o@e wire 
a a a =] ecu >a 
a ~~ CY vvuvD ~oO 
sc so — vvvD Ue 
°o 5 Vv — <<aiac ov *. 
. om oe aw _ 
~~ es - see a> 2 . °° 
Qo tere z | — "+2 
cv @2z o w wow oa a w 
- >a _— [verve wo > w 7 mH 
~~ oO _ ca . “nn wo or 
ee iw a wo - —- 2 c ~—e 
oa-- i~ —_ = w or * oe ee rT] Zu *« o uu @ar -s 
Cw <-s he oo ” [7] -—a &— ee - wo 
ton Jj ve | w nn wo - w nw - ora Ww oe wun 
os oo "yo 3S ww  ] “a wu 4 Aku “Zz SC -- Zit 
——_ VU w O w =o a wo id za = ” | @& we Nn O2we 
‘ee oa t 5 —> a on poo Te ” => Oo wee § Oo - -—a2 
ee re -ur- 2 | ad — se ve Zea | ~ 1Oor-ecu 
oe wm i—§ wn = tin * oO ® =z o® vw @ os t mms a Q—ww 
@v 25D $ —- « abal ro - 2» cw C€ a ad mT - 7 1 Ow 
oer # ae ooo e- coe oso - oOo um Oo oo oO e2z--0Ofc ~ wer 6 6 
-~ >> So - eveVvr ss Ze ZB we ZeZezag VV eC JZ ee —- 222M 
~~ - _ J VY v aw uw _ a c- ¢ Cc mmo a a 
3S@ w a < _ _ — o a 2 = — swmnree 
a> w2 =) = — — -a w w = _ oO e2=-- 
~ | amd z < a a 325 a @ @ od —ememe 2— I 
a>: ee _ o = = oO ed 
ot @De- um re _ _ av 7) ‘ 
“"wOr+ § 
‘a T° eee 
wos SO ICICI CII 
<r 
ADA NOP-DKOK— MUM TNOR. DOO CUM TN OR. DHOOM TMNOR. DOO MUM TN OR. DOO MM TNO. OOO 
x2a SF ee 88 a a EG ot at gt gt gt gh eh pte ttgnhetetgdtyntete & oF 4 www ww 
on7 SAA AOOSCOCOCOOOCOOSOSCOOCOOCOSCOSCOOCSOSOOOOOOOOSOSOOSGOCOCOOOOOooSeoOo oOo 
Zr D000 FF LL OO OOO 


SOS OS OSC SOS OOO SOLEUS ST ST ST TT TT TAMA a or-rr 
LDULVLULULULVLVLULVLVLVLVLVULVLVULVULVULVULVLVULVULV LVL LVL LVL LVL LVL VELL LOLS VLE VALVE OAL VED ELV ELLY ELD ELV EL DLN LIN LENA 


PR CSCS eS eS FS HS FSCS HS SS FSS HS SS SSS FS HS FS SS SS FS HSS SCS FS SS FS SS FE SSF FS FETS SSCS FS FS SSS TSS FS SSF *S*S tere *e tetera *e*e 


NDXPAG == Output page formest ing routines 18-Sep-1984 94:06:32 oth Bliss-32 V4.0-74 Page Ri 


Ss 
Ss 


VJUST_COL == Vertical justify column -Sep-1 RUNOFF .SRCJNDXPAG.BLI; 
s Sr 1 ¢ 
: 576 1 ! 
; Ne ! ¢ Get number of blank Lines at bottom of column | 
s 1g 1 8 DECR I FROM .COL_COUNT TO 2 DO 
: i 19 IF (.COL_TYPES C.1] NEG BKT_E) AND (.COL_TYPES C.1] NEQ FILL) | 
: 580 1 EXITLOOP | 
; 38) 1960 
; 388 19el N_LINES = .N_LINES + 1; 
; Se 1988 IF .N_LINES EQL 0 THEN RETURN; ! No justification to do 
s 389 1064 
; 586 1065 ! 
3 rath 1908 : Get number of primary insertion points 
; 589 1068 DECR I FROM .COL count - .N_LINES TO 2 DO 
; aa0 1997 IF .COL_TYPES C.1] EQL BKT_E THEN INSERT_POINTS = .INSERT_POINTS + 1; 
$ 4 1071 IF .INSERT_POINTS EQL 0 
s 59 1976 THE 
; 594 107 BEGIN 
: 595 1074 ' 
; 239 197? Get number of secondary insertion points 
; 598 1077 INSERT_TYPE = GUIDE FILL; 
; 1078 DECR I FR .COL_COONT = .N_LINES TO 2 DO 
; 14 3 IF -COL_TYPES C.1] EQL GUIDE_FILL THEN INSERT_POINTS = .INSERT_POINTS + 1; 
: 1081 3 IF .INSERT_POINTS EQL 0 THEN RETURN; ! No place to insert 
3 ions 2 END; 
: 1084 LINES_PER_INSE = .N_LINES / INSERT POINTS; 
; 1085 LINES-LEFT = .N_LINES = (.LINES_PER_INSERT * .INSERT_POINTS); 
H 1087 TO_LINE = .COL_COUNT; 
3 1088 FROM_LINE = .COL_COUNT - .N_LINES; 
3; 610 1089 
3; «611 1090 WHILE (.INSERT_POINTS NEQ 0) DO 
3 oi¢ 1091 BEGIN 
3; «61 1096 IF .COL_TYPES C.FROM_LINE] EQL .INSERT_TYPE 
> 614 109 THEN 
3s 615 1094 4 BEGIN 
3 616 1999 4 ! . 
; «661 1096 4 ! Insert fill Line(s) 
3; 618 1097 4 ! 
3; 619 1098 4 INCR | FROM 1 TO .LINES_PER_INSERT DO 
: 620 1099 5 BEGIN 
: 621 1100 5 PADLIN (4, .BLANKS, 4, COL_LINES C.TO_LINE, 0,0,0,0)); 
: 6 : 1101 ; COL_TYPES C.TO LINE) = FILE; 
; 6 1196 TO_CINE = .TO_CINE = 1; 
3; 624 11 4 ENB; 
: 625 1104 4 | 
; e § 1102 2 INSERT_POINTS = .INSERT_POINTS - 1; 
; 628 1107 4 IF .LINES_LEFT NEQ 0 
: 629 1108 4 THEN 


NDXPAG == Output page lot sting routines 


VJUST_COL == Vert Reet 


H 4 
16-Sep-1 


AX-11 Bliss-32 ¥4.0-74 
14-Sep-19 


1982 93: 6937 73 RUNOFF .SRCJNDXPAG.BLI; 


usti y column 


o 
o 


VINO LOL YVMVviw1O FOLD Pwoumm 


oa 
oa 
ONNOS ("WI ND OOWOOCOONON-NnTN™ 


o 
o 


OFFC 00000 VJUST_COL: 


9E 00002 

9E 00009 

7C 00010 

DO 0001 

7C 0001 

DO 0001 

DO 0001B 

11 QOOTF 

D1 00021 1$: 
13 000 ; 

} 000 . 

1 HBSS 2 
D 02F 

D1 00031 3 

1 0 

D 4$: 
1 

C A 

D F 

11 tf 

D1 44 5$ 
12 48 

dg 4A 

D 4C 6$: 


bad 


4, COL_LINES C.TO_LINE, 0,0,0,0)); 
INE) = FILE; 


0° 0,0,0], 


: 630 1109 N 

uk ic , 

: $8 11g Mapas ais, me 

; , «BLANK 

> 635 1114 COL_TYPES C.T 

: 6 é 1115 TO CINE = .70 OrtNe = 

; 6 1116 (TRES LEFT = TLINES “in - 1; 

> 638 W174 END; 

: 639 1118 4 

: 640 1119 END; 

> 641 1120 

: Be 1152 ia Lu 

b t 

eo | darn cer comin + cages cron 
; = COL_LIN F on ths 
646 1 3 TARGET = COL_LINES C.TO_LINE, 

3 648 4 f COL_TYPES C.TO_LINE] = .COL_TYPES plump 
: 650 1129 TO_LINE = .TO_LINE - 1; 

3) 1 0 3 EROM_L LINE = .FROM_LINE = 1; 

: 65 1132 2 

> 654 1133 1 END; 


Save R2.R3 R4,R5,RE,R7,RB,RI,R10,R11 
BLANKS, R1 i 


(R6)CIJ, #1 
(R6)CIJ, #2 
N_LINES 

#2 

N_LINES 

N LINES, @COUNT, R1 
RT, | 


(RODCIJ, #1 
INSERT_POINTS 


< 


2 


4 
NOXPA NDXPAG == Output page formatting routines 16- -$ep-1984 AX-11 Bliss-32 V4.0-74 
VOu~000 VJUST_COL == Vert tat a fy ms Ph 1 ety 7 9}: 88: 2 RUNOFF .SRCJNDXPAG.BLI; 
50 01 O004E 7S: CMPL #2 
fi 1 BGEQ ig 
57 D0 TSTL | INSERT_POINTS 
iB 1 BNEG 118 
59 4 D MOVL #4, INSERT_TYPE 
0 1 0 A MOVL Ri. I 
A 11 D BRB 10$ 
04 6640 01 F 8$ CMPL = (RO) CII, #4 
12 0006 BNEG 9S 
0g 06 INCL — INSERT_POINTS 
0 D7 00067 9$: DECL~SsdI 
02 50 Di 0069 10$:  CMPL i #2 
Fi C BGEQ q 
52 D 906 TSTL INSERT. POINTS 
7 13 000 BEQL 
52 53 7 ¢ 07 11$ DIVL3 INSERT -POINTS, N_LINES, LINES _PER_INSERT 
5 5 7 €¢5 00076 MULL3 INSERT-POINTS, LINES PER_INSERT, RO 
58 5 0 C3 O007A SUBL RO, N_CIN ae ut ES_LEFT ~ 
5 04 DO 0007 MOVL acount 
54 1 DO 0008 MOVL = R1 
57 D3 008 128 TSTL INSERT an The 
60 13 00087 13$ BEQL 178 
59 6644 01 00089 CMPL §(R6)CFROM_LINEJ, INSERT_TYPE 
36 12 0008D BNEG  16$ 
D4 0008F CLRL oI 
13,11 90091 BRB 15$ 
08 BC43 7F 00093 14$:  PUSHAQ @COL_LINESCTO_LINE) 
04 DD 00097 PUSHL #4 
68 DD 90099 PUSHL BLANKS 
04 DD 00098 PUSHL us 
6A 04 FB 0009D CALLS DLIN 
6643 08 DO 000A0 MOVL #2. (Rob TO_LINE) 
53 D7 O00A4 DECL TO-LIN 
9 55 32 F3 O0A6 15$:  AOBLEQ LINES PER INSERT, 1, 14$ 
57 D7 OOOAA DECL INSERT_POINT 
58 D3 OOOAC TSTL LINES "tert 
13 13 QO0AE BEQL | 
08 BC43 7F 90080 PUSHAQ a@COL_LINESCTO_LINEJ 
04 DD 00084 PUSHL 
68 DD 00086 PUSHL BLANKS 
04 DD 00088 PUSHL ui 
6A 04 FB OOOBA CALLS LIN 
6643 Q D0 00BD MOVL ‘3. Rod TO_LINEJ 
D 99¢ DECL TO LINE 
5 D7 C DECL LINES LEFT 
000000006 EF F 99¢ 16$:  PUSHAB STRSFAILURE 
E D4 9 CB CLRL = (SP) 
08 BC43 7F OCD PUSHAQ acOl_LINESETO LINE) 
08 BC44 7F 0 D1 PUSHAQ @COL~LINESCFROM_LINE) 
ze D4 O03 CLRL  =(SPY 
000000006 _ EF 05 F 990 CALLS #5. XSTSCOPY 
6643 6644 D D MOVL (R6) CFROM OT INE), (R6)CTO_LINEJ 
33 n OE DECL TO_LINE 
4 07 6 E DECL okt ine 
9c 11 OO0E BRB 12$ 
04 OOOE9 17$: —s RET 


04080 voustecou == "ertfest justify column 1efe0n199 1309373 ERUNoF FeSRESNDRPAG- OL: tual 


; Routine Size: 234 bytes, Routine Base: S$CODE$S + 0433 


| 
| 
] 


SS 


el eel el ell cell eel eels eel eel eel eels ell eel eels els cel eel els eels eel eel eels cls lly ells cl eels els cls al ells cecal els ell ails cal lly ssl ily cil cally nails ails cil ssl sslls usally ails silt asi, asl assess assis assis assis ssi 


Bee Se Se Oe Sees Se Be Se Se Ge Se Se Se Se Ge Se Se Ge Fe Se Se Ge Se Ge Fe Ge + Oe Se Se FE Se Se FF Se Se Se SH Se Se Se Se Sees Se Se Se ee Fe Ge Se Se seusease 
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XPA NDXPAG == Output page formatting routines 16-Se =-1984 :06:3 AX-11 Bliss-32 V4.0-74 Page 39 x 
your LASTPG == Wr Fe last page for RUNOFF output 14- sep 1984 93:08:72 RUNOFF .SRCJNDXPAG.BLI; a) vir 
. = 1134 1 XSBTTL “LASTPG == Write Last page for RUNOFF output’ 7) 
; 63 i 5 i GLOBAL ROUTINE LASTPG : NOVALUE == : 
; oes 11 5 1/ a | 
; 660 i 8 FUNCTIONAL DESCRIPTION: : \ 
; 66 1140 1 This routine is called to write the last page for RUNOFF a | 
3 er 134) : output. For two column output, the last page is balanced. ; \' 
; 665 1108 1 | FORMAL PARAMETERS: 21 
; 666 1144 13 2 1 
: 667 1145 1: None ; 1 
; 668 1146 1 i 3; i 
: 669 1147 1 | IMPLICIT INPUTS: 31 
; 670 1148 1: 2 1 
; 671 1149 1! ALLOWD - Maximum number of Lines allowed for page : 1 
3 67 1150 1! LCOUNT - Number of Lines in Left column 3} 
3; 67 1151 1! RCOUNT - Number of Lines in right column : 1 
: 674 1138 1 i LLINES - Lines in left column a. 
3; 675 1153 1 RLINES - Lines in right colum : 1 
; 676 1196 CMDBLK - Command Line lolerenttan block : : 
: 678 1156 1°! IMPLICIT OUTPUTS: : 1 
: 679 1157 1/3 71 
; 680 1158 1! None a. 
> 681 1159 1/3 : 1 
; 68 1160 1 ! ROUTINE VALUE: : 1 
> 68 1161 1 § COMPLETION CODES: : 1 
> 684 116¢ 1 i :] 
; 685 1163 1! None i 1 
; 686 1164 1 27 
: 687 1165 1 ! SIDE EFFECTS: 77 
: 688 1166 1 : 1 
; 689 1167 1 None : 1 
; 690 1168 1 i-- : 1 
: 691 1169 BEGIN : 1 
; 69 1170 : 1 
: 69 1171 IF ;,CMDBLK CNDX$H_LAYOUT] EQL TWO_COLUMN 3 3 
> 694 1178 : 1 
; 695 117 NREGIN 21 
; 696 1174 : 1 
3; 697 1175 Balance last page for two column output 3 
> 698 1176 i : 1 
: 699 1177 LOCAL :] 
: 700 1178 MIDPT ' Used to check where Left col will break 3% 
: 701 1179 R_FIRST, ! First non-continuation Line in right col : 1 
: 70 1180 R-LAST, ' Last non-blank Line in right col 37 
; 70 1181 R-TOTAL, ! Total lines in right co 3 
: 704 11 ; R_BEGIN, ' First Line in left col which will be in new right col 3 Y 
: 705 11 L-END ' Last Line in new left 3% 
3 re i : L7LAST; ! Last non-blank Line i left col : ' 
: 708 11 6 FIRST = 1; : 1 
+ 709 1 LAST = .RCOUNT 37 
; 710 11 4 TOTAL = .R_LAST - .R_FIRST + 1; 37 
+ 711 11 BEGIN = .LCOUNT + 7; :1 
> 712 11 LAST = .LCOUNT; :1 


4 
XPAG =< t formatting routines ib-se -1984 06:3 AX-11 Bliss-32 V4.0-74 Page 40 
Vue 080 Waste -- oy fe iss “page for RONOFF output 14 g0p7 138 94:96:72 RUNOFF ..SRCJNDXPAG.BLI; (5) 


; 13 113 L.END = .LCOUNT; ; } 
; ay 1188 TCOUNT = 0; ! No Lines in temp column yet : ; 
; 1? 1195 TF ((.LCOUNT + .RCOUNT + 1) / 2) LSS .ALLOWD = 1 ; | 
mB TRE pe : 
; 4 1138 ? | Page is not full enough to write it out as is. : 
Py : 4 
pe: 1201 4 : 
> 726 1 03 4 DECR I FROM .LCOUNT TO 2 DO :] 
: Oe 150% _— 4 
; 4 5 05 Remove blank Lines at end of left col : : 
: 359 1207 § LLAST = .J; , i] 
: 730 1208 5 IF (.LTYPE €.1] NEQ FILL) AND (.LTYPE C.1) NE@ BKT_E) THEN EXITLOOP; i] 
oa ins ee : 
; ? g 1211 § IF (RCOUNT NEQ 0) i 
; te 1§ 5 BEGIN i 
: 737 1215 : i More than one column of output. : t 
- re , i] 
: 740 1518 6 IF (.RTYPE C1) EQL GUIDE) AND (.LTYPE C.L_LAST] NEQ BKT_E) : 
> 741 1219 5 THEN i] 
He ig ee | 
> 744 1 ; 6 i Insert a bucket end Line before the guide head : : 
: 745 1 § 6 that is, at end of current left column. - 
: a9 i é L_LAST = .L_LAST + 1; i] 
; 748 1206 6 PADLIN (4, “BLANKS, 4, LLINES C.i_LAST, 0,0,0,0J); i] 
> 749 1227 ‘ LTYPE C.L_LAST] = BKT_E; : 1 
a - : 
; 138 1380 8 INCR I FROM 1 TO .RCOUNT DO i] 
; 133 1231 : BEGIN : | 
; Hs He ° Remove continuation head if any : : 
Py ; 2 
; R_FIRST = .1; é 
; OR, 1536 & TF -RYVPE £-13 NEQ CONT_HEAD THEN EXITLOOP; 7] 
; § 1 
3; 759 ' END; i. 
; 1536 DECR 1 FROM .RCOUNT TO .R_FIRST DO i 
: 1s § ean } 
; 4¢ 6 ! Remove trailing blank Lines ! 
; 1244 3 R_LAST = .I:; ; 
; 1245 IF (.RTYPE €.1] NEQ FILL) AND (.RTYPE C.1) NEQ BKT_E) THEN EXITLOOP; i] 
: i te : 


erat ss 
| Mm 4 
oF NDXPAG == Output page formatting routines 19=$e0°12 AX-11 Bliss-32 V4.0-74 Page 41 


AG XP e 4 01:06:3 1 Blis 

04-000 LASTPG == Write dst page for RUNOFF output 1 30P- 138 94:08:78 RUNOFF. RCINDXPAG.BLI: (5) 

; 770 1248 5 R_TOTAL = .R_LAST = .R_FIRST + 1; :] 
: 46 : rk ? END; “ ‘; : : 
; ie 1 4 MIDPT = (.L_LAST # .R_TOTAL + 1) / 2; 7] 
3; 774 1 ¢ 4 3 7 
; 775 1 4 ' 37 
; 76 | : ‘ : Find a good place to break the left column : : 
; 778 1 28 4 CASE .LTYPE C.MIDPT] FROM BKT_E TO CONT_HEAD OF 3 3 
: 779 1257 4 SET 3 7 
: 788 1589 (BKT_€) ' Bucket end 3 
; : ! Bucket en ; 

3 78s 1260 BEGIN 33 
: 78 1261 L_END = .MIDPT = 1; ' Previous is Last left col Line 3 3 
3; 784 1 6¢ R-BEGIN = .MIDPT + 1; ! Next line is first in right col : 1 
; 785 1263 4 END; 3 3 
: 786 1264 4 3 7 
3 787 1265 4 (GUIDE): ! Guide head : 1 
; 788 1266 2 BEGIN $3 
; 789 1267 L_END = .MIDPT = 2; ! Line before bucket end is last in Left col 7] 
; 790 1268 5 R-BEGIN = .MIDPT; ' This Line starts right coal. : 1 
; 791 1269 4 END; 3 7 
3 re 1270 4 1 
3; 795 1271 4 CGUIDE_FILLI ! Line after guide head : 1 
; 79% 1 e 5 BEGIN ; 2] 
; 795 lei2 2 L_END = .MIDPT = 3; ! Line before bucket end is last in left col 3 1 
: 796 1274 5 R-BEGIN = .MIDPT = 1; ! Guide head starts right col. 3 7 
3; 797 1275 4 END; 3 
: 798 1s/6 4 z 3 
3; 799 1277 4 CENTRY_B TO ENTRY_E): ! Somewhere in a top level entry 3 7 
; 800 1s?8 5 IF~(.LTYPE C.MIDPT] EQL ENTRY_E) $ 
; 801 1279 5 AND ( 3: 3 
; 80 1280 6 ((.LTYPE C.MIDPT + 1] NEQ SUB_B) AND (.LTYPE C.MIDPT + 1] NEQ SUB_E)) 3 
; 80 1281 5 OR NOT .CMDBLK CNDX$V_CONTINUATION] 37 
3; 804 1e86 5 ) $ 3 
; 805 1283 4 THEN > 7 
; 806 1284 5 BEG! 3 
3; 807 1285 5 ! 37 
; 808 1286 5 ' Line is the Last Line in a top level entry. 3 7 
: 809 1287 ' and either the next Line is not a subindex entry $7 
3 3i9 : 38 , or we aren't doing continuation headings. : : 
; aig | 30 : Use this Line as the Last in the column. : : 
3 Ba 129 L_END = .MIDPT; 31 
; 815 129 R-BEGIN = .MIDPT + 1; 21 
: 816 129% IF .R_BEGIN LEQ .L_LAST 1 
: 81 1295 THEN 3 7 
H aig \ ; IF .LTYPE C.R_BEGIN] EQL BKT_E THEN R_BEGIN = .R_BEGIN + 1; ° ! 
i 820 1298 4 ELSE : | 
: Boe ‘ : IF .LTYPE C.MIDPT] EQL ENTRY_E THEN MIDPT = .MIDPT - 1; ° ' 
: $i 1 § DECR I FROM .MIDPT TO 1 DO | 
: $2 1 6 BEGIN 3 1 
5 6 1304 6 ! 3 1 
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- te ta ONoFE output be aets 1 94:06:92 RUNOFF .SRCJNDXPAG.BLI; 
} Find beginning of entry 
L_END = 
R_BEGI 


F BLISS (BLISS32) 
HEN 
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els 
N= .J #1; 
{Ea ccb lyre ae NEQ ENTRY_B) AND (.LTYPE C.1] NEQ ENTRY_W) THEN EXITLOOP; 


SELECTONE .LTYPE C.LLEND] OF 


CBKT_E): 
CLEND = .L_END = 1; 


COTHERWISE): 


TES; 

IF _CCLLLAST = .RLBEGIN + 1) * .RLTOTAL) GTR .ALLOWD 
BEGIN 
Write page as is 


! Signal errors for BLISS32 
SIGNAL (INDEX$_CANTBAL); 
! Use $XPO_PUT_MSG otherwise 


$XPO_PUT_MSG (SEVERITY = WARNING, 
STRING = ‘can''t balance last page.'); 


= .RCOU 
R 


1 
RECOUNT; 
«R_LAST = .R_FIRST + 1; 
LCOUNT + 1; 

tCou 
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LASTPG == write Last page for RUNOFF output 1 mH 94:96:33 RUNOFF .SRCJNDXPAG.BLI; 

$6 Find end of subindex entry 

64 L_END = ,]: 

65 IF .LTYPE £.1] EQL SUB_E THEN EXITLOOP; 

66 END; 

oe R_BEGIN = .L_END + 1; 

2 {fo gRBEGIN LEQ .L_LAST 

ts case -LTYPE C.R BEGIN] FROM BKT_E TO CONT_HEAD OF 

74 

75 CBKT_E): 

4 R_BEGIN = .R_BEGIN + 1; 

78 CSUB_B, SUB_E): 

79 TF .CMDBLK CNDX$V_CONTINUATION] 

80 THEN 

:) BEGIN 


; Must generate continuation head 


if NOT LAST_CONT (.R_BEGIN) 
OR. (¢.TCOUNT + (.L_LAST = .R.BEGIN + 1) + .R_TOTAL) GTR .ALLOWD) 


BEGIN 


i Can't generate a continuation heading or 
' continuation heading will make right column 


too long. - Can't balance last page 


COOOCO0CO0O00000 0000000000 000000 


WN SO ODNAUEF WN “OOO IOue 
DUD DVDVLD SISOS SSS SSID. SID DP DDD PDIP OOO 


; 

; ZIF XBLISS (BLISS32) 

; XTHEN ! Signal errors for BLISS32 
SIGNAL (INDEX$_CANTBAL); 

t ZELSE ! Use S$XPO_PUT_MSG otherwise 
: $XPO_PUT_MSG (SEVERITY = WARNING, STRING = ‘can''t balance Last page’); 
4 ZFI 

404 

$83 TCOUNT = 0; 

4 : R_FIRST = |; 

40 RILAST = .RCOUNT; 

408 R-TOTAL = .R_LAST - .R_FIRST + 1; 

409 R-BEGIN = .LCOUNT + 1; 

410 L“LAST = .LCOUNT; 

411 L_END = .LCOUNT; 

tig ERD; 

41 END; 

414 

415 CINRANGE): 

rt | : 

41 

418 TES; 
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AG <= QUST SOOMSE RSP than UERESBIL CA:QH:ED Wall CdaNabaNd-T 


1 
OFF output 14S p= RUNOFF ..SRCJNDXPAG.BLI; 


END; 
CINRANGE): ! FILL and CONT_HEAD 


TES; 
END; 


IF .R_BEGIN EQL 1 
THE 


i ALL of Left column is to be copied to the new right coiumn. 
! This means that the left column is very short so write out 
! everything in the left column. 


! 
! 
1 
i 
R_BEGIN = .LCOUNT + 1; 

L-END = .LCOUNT; 

L“LAST = .LCOUNT; 

END; 
LCOUNT = .L_END; 
IF ,R-BEGIN LEQ .L_LAST 

INCR I FROM .R_BEGIN TO .L_LAST DO 

BEGIN 


Copy remainder of left column to temp column 


TCOUNT = .TCOUNT + 1; 

TTYPE C.TCOUNT] = .LTYPE C.12; 
$STR_COPY (STRING = LLINES 1, 0,0,0 
sath TARGET = TLINES C.TCOUNT, 6,0.0,03 


0), 
); 


IF ;RATOTAL NEQ 0 
INCR I FROM .R_FIRST TO .R_LAST DO 
BEGIN 


Copy remainder of right column to temp column 
TCOUNT = .TCOUNT + 1; 


TTYPE C.TCOUNT] = .RTYPE C.13; 
$STR_COPY (STRING = RLINES C.1, 0,0,0,0), 
TARGET = TLINES C.TCOUNT, 6,0.0.04); 
END; 
If ,LCOUNT LSS .TCOUNT 
BEGIN 


. Insert enough blank Lines in left column to make columns even 
INCR I FROM .LCOUNT + 1 TO .TCOUNT DO 
BEGIN 


5 
XPAG tye == Output page formatting routines 18. Sep- AX-11 Bliss-32 V4.0-74 Page 45. 
your080 LASTPG == urite ibs page for RUNOFF output 14- ae 38 9}: 88 3 RUNOFF .SRC JNDXPAG.BLI; . Ti 
; 998 147 LTYPE J = 
; .999 1238 é —- at “eLAnKé, 4, LLINES C.1, 0,0,0,0]); 
: 1000 108 4 
; 1001 1479 4 
3 1906 1480 4 LCOUNT = .TCOUNT; 
: 100 1481 4 
3; 1004 14 g ELSE 
; 1005 14 IF .TCOUNT LSS .LCOUNT 
: 1006 1484 THE 
; 1007 1485 4 BEGIN 
: 1008 14 : & ! 
; 190? be G ' Insert enough blank Lines in right column to make columns even 
: 1010 1486 4 : 
3 1011 1489 4 INCR I FROM .TCOUNT + 1 TO .LCOUNT DO 
: Ite 1490 2 BE 
3; 101 1491 TTYPE C.J] = FILL; 
> 1014 1498 5 PADLIN (4, .BLANKS, 4, TLINES C.I, 0,0,0,0]); 
3 1015 1493 4 END; 
3 1016 1494 4 
3; 1017 1495 4 TCOUNT = .LCOUNT; 
: 1018 1496 3 END; 
3; 1019 1497 
3 ISe0 1498 END; 
: 1021 1499 
3; 10 ¢ 1500 ALLOWD = .LCOUNT; 
3 1° 138) PUTPAG (TRUE); 
; 1025 1208 IF .CMDBLK CNDX$H_FORMAT) EQL DSR THEN PUT_LINE (*.RESTORE'); 
3; 1026 1504 1 END; 
-PSECT S$PLITS,NOWRT,NOEXE,2 
45 52 4F 54 53 45 52 2€ 00057 P.AAZ: .ASCII \.RESTORE\ ; 
-PSECT SOWNS,NOEXE,2 
0008 0008C $IOBSOUTPUT: 
WORD 8 3 
01 494 “BY TE 14, 1 3 
0000098" $0 ADDRESS P.AAZ 3 
-PSECT S$CODES,NOWRT,2 | 
OFFC 00000 eENTRY LASTS. Save R2,R3,R4,R5,R6.R7,R8,R9,R1I0.- ; 1135 | 
B 00000000G_ EF 000 MOVAB TCOUNT, R11 3 
sh 099000006 EF oF hb0S MOVAB ile F "R10 : 
1 00000000G_ EF af Bet CMPW CMDBLK+6, #1 3 1171 
; } 1 BEQL 1 3 
03 1 19 BRw 338 : 
6 01 OD 1C 18: MOVL R pinst : 1186 
1 000000006 ff D iF MOVL Run a > 1187 
7 1 =O 26 MOVL R CAST 3 
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NDXPAG NDXPAG == Output page formatting routines ibese 1984 :06: AX-11 Bliss-32 V4.0-74 
yOu~0G0 LASTPG == write Last page for RUNOFF output 12-8 08- 1 3b 94:08:72 ERUNOFF’SRe NBPAG OLA: 
50 7 56 C3 9 SUBL3 R_FIRST, R_LAST, RO 
8 1 8 ig D MOVAB hd) R_TOTA 
000000006 EF p 1 MOVL COUN , 
2 MOVAB (RO), R_BEGIN 
2 D C MOVL RO, L_LAST 
54 D F MOVL f 
6 b4 de CLRL_- TC UNT 
58 01 A140 9E 0004 MOV 1(R1) CROJ, RB 
8 cé 0049 DIVL2 #2, R 
59 000000006 EF 1 ¢€3 0004C¢ SUBL3 #1, ALLOWD, RO 
9 8 D1 00054 CMPL RB, R 
14 19 0 7 BLSS 4$ 
O18 1 9 BRW 40$ 
53 50 00 O99¢ 2$: MOVL ?-;_ LAST 
02 6A40 0% O005F CMPL L type I], #2 
06 13 00063 BEQL 4 
01 6A40 01 00065 CMPL LTYPECIJ, #1 
07 if 00069 BNEQ 4 
50 D 90068 3$ DECL 1 
02 50 D1 0006D 4$ CMPL } #2 
A 18 00070 BGEQ § 
1 b3 00072 5$: TSTL =e R11 
5 13 00074 BEQL 14$ 
03 000000006 EF D1 00076 CMPL  RTYPE+4, #3 
4 12 00070 BNEQ 6$ 
01 6A43 D1 0007F CMPL = LTYPECL_LASTJ, #1 
1— 13 00083 BEQL ~=s«6$ 
53 D6 00085 INCL _L_LAST 
OQOOOODO0GEF4S 7F 00087 PUSHAQ LCINESCL_LASTI 
04 oD OO08E PUSHL #4 
00000000" EF DD 0009 PUSHL BLANKS 
04 DD 90096 PUSHL #4 
000000006 EF 04 FB 0009 CALLS #4, PADLIN 
6A43 01 D0 O009F MOVL #1, LTYPECL_LAST) 
50 D4 OOOA3 6S: CLRL 
0D 11 O00AS BRB $ 
56 50 DO 000A7 7S: MOVL I, R_FIRST 
0B O0000000GEF40 1 OO0AA CMPL RTYPECI], #11 
08 if 0082 BNEQ 9 
EB 50 000000006 EF F3 000B4 8$: AOBLEQ RCOUNT, I, 7$ 
50 000000006 EF Dd 9008 9$: MOVL RCOUNT, I 
19 11 000C BRB 12$ 
57 50 DO 000C5 10$: MOVL I, R LAST 
02 00000000GEF 40 D1 99¢ CMPL = aRTFYPECII, #2 
OA D BEQL «§=«d1'18 
01 O0000000GEF40 01 990 CMPL RTYPECIJ, #1 
7 if ODA BNEQ 13$ 
0 D DC 11$: DECL I 
56 9 D1 DE 12$: CMPL ! R_FIRST 
. 18 E BGEQ bs 
50 7 E3 13$ SUBL3. RR FARST R_LAST, RO 
5 ot AO SE O00E MOVAB 1TRO), R TOTAL 
0 1 AS4 ; EB 14$ MOV 1(R_TOTAC)CL_LASTJ, RO 
0 08 C F DIVL2 #2, MIDP 
A 1 AGO CF F CASEL L TYPE MIDPT], #1, #10 
0029 0020 0156 016 FB 15$ .WORD 6$- $,- 
00C2 0034 0034 34 1 40$-15$,- 
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w$ep-198¢ 15:08:15 ERUNOFFeSReSNOXPNG- BL: 


BLEQ  37$ 

PUSHL  #DSRINDEX$_CANTBAL 
CALLS #1, LIBSSIGNAL 

BRB 39§ 

DECL 

ROVL 1S LEN 

CMPL fyPEF TD, #10 

BEQL 

AOBLEQ L_LAST, I, 31$ 
MOVAB 1R4), R_BEGIN 
CMPL EGIN, “L_LAST 
BGTR 

CASEL PECR_BEGIN], #1, #10 
» WORD = e= 


SAOAOOOCOOCOMUn-, 
SSS 
PRPAPAAAAAAMK 


PRP L LL 


R 
BBC #6, CMDBLK, 40$ 
PUSHL R_BEGIN 

CALLS HE AST_CONT 


SUBL3 R_BEGIN, L_LAST, RO 


ADDL2 TCOUN 
MOVAB 1(R_TOTAL)CROJ, RO 
CMPL RO, “ALLOWD 


4 
PUSHL #DSRINDEXS_CANTBAL 
CALLS #1, LIBSSIGNAL 


T 
MOVL #1, R_FIRST 
R_LAS 
SUBL3 RR FARst R_LAST, RO 
MOVAB 1TRO), R_TOTA 
MOVL i cOuN, RO 
MOVAB 1(RO), R_BEGIN 
MOVL RO, L“LAST 
MOVL RO. LEND 
CMPL R_BEGIN, #1 
BNEQ 47S 
MOVL L COUNT, RO 
MOVAB 1(RO), R BEGIN 
MOVL RO, “ 
MOVL RO. L7LAST 
MOVL L_END> LCOUNT 
CMPL sR BEGIN, L_LAST 
BGTIR 4% 
Maa 
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NOXPAG NDXPAG == Output page formatting routines 16-Sep-1984 :06: Ax-11 Bliss-32 V4.0-74 Page 49) 
v04-000 LASTPG == Write is page for RUNOFF output 12-8001 382 94:08:72 RUNOFF .SRC JNDXPAG.BLI; ’ (5) | 
2D 11 00272 BRB 43 ; 71 
6B D 74 42% INCL  TCOUNT + 1449 31 
30 68 08 £6 MOVL TCOUNT, RO : 1450 :] 
00000000GEF4 6A4 : 7 MOVL  LTYPECTI, TTYPECROJ : 31 
000000006 BF OF : PUSHAB STRSPAILURE ; 1452 : } 
onononoacerp i A PUSHAQ TLINESERO : 3 3 
OOO0000GEF42 7F 1 PUSHAQ LLINESLI : 31 
7E D4 8 CLRL = = (SP) : 31 
000000006 EE F 9A CALLS #5, XSTSCOPY : 31 
CF 2 F Al 43$: = AOBLEQ = L_LAST, I, 428 3: 1444 : t 
B98 bosAr gear get — 4 
52 FF OG H 02a9 MOVAB -1(R6), I : 1457 1 
31 17 OO02AD BRB 46$ : : | 
s S38 Huseh Oat FER ao fH) 1 
00000000GEF 40 ogoogogcere D0 00 B4 OVL  RTYPECI), TTYPECROJ : 71 
000000006 ai 4 06 3} PUSHAB STREP AILURE : 1465 sf 
SSUneEre) FF Beg atae alte 3 : 
4: D4 $0 d7 CLRL -(SP) : 3:1 
000000006 EF 0 Fe 00209 CALLS #5, XSTSCOPY : 31 
CB 2 57 £3 OOCEO 46$:  $AOBLEQ R_LAST, I, 45$ t 1457 31 
$4 000000006 EF 00 002E4 478:  MovL LTOUNT, Ré ; 1468 71 
3 a a a | : 
3 a fun} (EI 
1¢ 11 002F6 BRB 49$ : 31 
6A43 0¢ 0 O02F8 48S: MOVL #2, LTYPECI) : 1476 : 1 
QOO00000GEF43 7F 00 FC PUSHAQ LLINESLI + 1477 31 
00000000" EF DD 09 05 PUSHL BLANKS -. 
4 DD 00308 PUSHL 4&4 : : 1 
000000006 Ef 04 Fe 00 00 CALLS #4, PADL IN : 71 
3 2 Ff 14 49$:  AOBLEQ R2, I, 48$ + 1474 . 4 
000000006 EF : dO 00318 MOVL TCOUNf, LCOUNT + 1480 : 1 
2 11 O0O31F BRB 53$ : 1468 31 
54 32 bt 6 1 50$: CMPL Re RG ; 1483 ; 1 
00000000GEF 42 3 00 6 51$ aCvL 35° TTYPECI) ; 1289 ; } 
oooooovocer as PF + BUSHAG TLENESEID ; 1492 | 3] 
00000000" EF db 00839 PUSHL BLANKS 2 
4 DD F PUSHL #4 : 71 
000000006 _ EF i F 41 CALLS #4, PADLIN : 31 
4 F 48 52$: AOBLEQ R 4 : 1489 31 
7 be 990000006 EF i 4¢ MOVL LCOUNT, TCOUNT > 1495 
000000006 EF 000000006 i D0 2 53$: ROVE LCOUNT., ALLOWD 2 1300 
F77E cr 1 FB 6 CALLS #1, PUTPAG : 
1 000000006 Ef 8} 65 CMP MOBLK+4, #1 ; 1503 
000000006 EF 00000000' EF 9 0036E MOVAB $IOBSOUTPUT, 10B$+68 : 


5 
04-000 UASTPG == Write Lest page for RONOFE output betas 30933 ERUnoFeeSReSWDAPAG BL: 


C0000000G EF 07 30 19 MOVB «#7: 10B$+44 
900000006 EF 9F PUSHAB XPOSFAILURE 
E be CLRL -(SP) 
000000006 ai F PUSHAB 1988 
000000006 EF 3 FB : CALLS #3, XPOSPUT 
4 95 548: RET 


; Routine Size: 918 bytes, Routine Base: S$CODE$ + 0510 


1504 
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VOu~ 000 AST_CONT == enerate cont nuat ton heading for 1 730071382 94:08:72 RUNOFF ..SRCJNDXPAG.BLI; reg (6) vO4 


ZSBITL_"LAST_CONT == Generate continuation heading for last page’ 
ROUTINE LASTICONT (L_NUM) = 


FUNCTIONAL DESCRIPTION: 


This routine generates a continuation heading for the Last page 
in the temp column. 


It first builds a stack of Line numbers which have the index 
levels (current - 1), (current - 2 + eee, O as these Lines are 


NDXP 
LAST 
: 10 1505 1 3 3 
; 10 § 1 $ 1 : , 
108, 1308 | iy 
; 19 é 1509 1/3 : 1 
; 10 1 @ : 1 
3; 1034 1 1! : 1 
: 1035 1 § 1! 37 
: 10 1 1! : 1 
: 1088 1818 1 i a 
; 197 13 § ! the predecessors of the current Line. : } 
: 14 1 8 : It then generates the continuation heading. : i 
; 1948 1 ? : For each index level, the Line on the stack is copied. : : 
: 1045 15 : 1/ If the Line is not a continuation head, the Line is copied 31 
: 1946 15 1! up to either the NULL inserted by INS_LINE to delimit the 37 
3 Hof 13 ¢ : start of page references or the whole string is copied. : ' 
3 1049 1526 1} If the Line is a continuation head, it is copied up to the s 
; 130 13 : string ‘(Cont.)' or the whole string is copied. ; : 
: 1036 1529 1 The following Lines will also be copied if the delimiting 3; 7 
3; 105 1530 1! string was not found and they are wrap lines (i.e., they 3 
: bt: 13 1 : } have an indent level equal to the current level + 2) : : 
; 1986 1338 : ! FORMAL PARAMETERS: : } 
; 1058 1535 1! L_NUM = Index into left column pointing to Line which a. 
; 1059 1536 1! will be the first in the new r ght column (i.e., 3 3 
3 ipey 13af ' the Line for which the continuation heading is generated. ; : 
; 106¢ 1339 { IMPLICIT INPUTS: i 
3 1064 1541 1! LTYPE = vector of Line types for left column 3 Y 
3 1902 1306 : } LLINES = Left column Lines : : 
; 1067 1344 | | IMPLICIT OUTPUTS: i] 
: 1069 1286 1! TTYPE «= vector of Line types for temp column 3 3 
: 1070 1547 1! TCOUNT = number of Lines in temp column 37 
: 4 1368 ' TLINES = temp column Lines : ! 
: 1078 1550 1 | ROUTINE VALUE: :1 
: ore 132) ' COMPLETION CODES: : : 
; 1076 1388 1 i Returns TRUE if it was possible to generate a continuation heading. 31 
3 Ore 1338 : Returns FALSE if it was impossible to generate a continuation heading : : 
: 1079 1536 1 i SIDE EFFECTS: 3} 
: 1080 1557 1! : 1 
; 1983 1228 ! None : : 
: 10 : 1386 : BEGIN :1 
3 1084 1561 LOCAL 7 


N 
L 


PAG == Output page formattin 


5 
routin Sep-19 AX-11 Bliss-32 V4.0-74 


K 
1_CONT == Generate cont nuatton heading for 122888718 d 93:89:72 RUNOFF .SRCJNDXPAG.BLI; 


MEAN — 


Se 


oO 
co 


ooo ooooo 


ooo 


—_ Pt 
WN CO OONOUSWN)—"O OONOU SW —O0@~ 


ccccc 
atatiwitiatatadatatabaiatabuiadabmiabataiabtatatadtataiatwiaiaabatbabababablababababutabaiabababatabababadababababababad 


Mrororofononororoforys 


1 
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1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ee ee ee ek ed td od 8s nd od os 8d = wd SS 8 


—O0Oonou 


PU 


ONT, 
CONT_INT_ 
CONT _EXT_ 
x_Ex 

CUR INDENT, 
CUR_LINE, 
INDENT; 
INDENT = INDENT _LEVEL (LLINES C.L_NUM, 0,0,0,0]) = 1; 
IF .INDENT LSS 0 

BEGIN 

i The input Line was blank. 

! This can happen if the column width was too narrow to fit 

! the entry into. Usually this is caused by a combination of 

a narrow column width and a deep subindex level. 


XBLISS (BLISS32) 


LEN, 
LEN 


Z1F 
ZTHE 

SIGNAL (CINDEX$_LASTCONT); 
ZELSE 


SXPO_PUT_MSG (SEVERITY = WARNING, 
STRING = ‘can*'t generate continuation heading on last page'); 


RFI 
RETURN FALSE; 
END; 


CONT = CHSPTR (UPLIT (*(Cont_.)')); 
CONT_INT_LEN = 8; 


eae CNDXSH_FORMAT] NEQ DSR 
BEGIN 


i S11 output 
! Compute length of ‘(Cont.)* in TMS units 
Set maximum Line length in TMS units 


LOCAL 
PT 


! Internal Length of ‘(Cont_.)' 


CONT_EXT_LEN = 0; 
PTR = .CONT; 


INCR I FROM 1 TO .CONT_INT_LEN DO 
BEGIN 


LOCAL 
CH 


CH = CHSRCHAR_A (PTR); 


Ss 


ns 5 te a 8 i ts 


. 
e 
~ 
o 
7 
* 
. 
. 
. 
* 
° 
° 
. 
o 
. 
a 
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° 
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° 
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. 
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yOue080 LAST _CONT == oners © cont inuat ton heading for 1 ~Sep-19 4 94:09:78 LRUNOFF SRE NDAPAG OL: a 3 


71 
IF CH NEQ XC*_* THEN CONTLEXT_LEN = .CONTLEXTLLEN + .CHRSIZ C.CHI; 


MAXLEXT = .CMDBLK CNDX$G_COLUMNWID * THSSTD; 


ELSE 
BEGIN 


| RUNOFF output 
Length of ‘(Cont.)' and maximum Line Length are in characters 


CONT_EXT_LEN = 7; 
OAK ERT = .CMDBLK CNDX$G_COLUMN_W1D); 


CUR_INDENT = . INDENT; 
CURTLINE = .L_NUM - 4; 


WHILE (.CUR_INDENT GEQ 0) AND (.CUR_LINE GTR 0) DO 
BEGIN 


WANA AINIUIWIonunonopnonofrornre«nn— 


WO OONOUESWN "OOO NOUS 
Ww 
SOWNAMNEWN $$ O OONAULS WN $0 OONOAUE WN O DONOUSWN OO 


| Build a stack of entry Lines at the correct indent Level 


if (.CUR JNOENT EQL INDENT LEVEL (LLINES C.CUR_LINE, 0,0,0,0])) 
+ A a «CUR_LINE) GEG ENTRY_B) 


BEGIN 
; Found preceeding subentry 


LSTSTK C.CUR_INDENT] = .CUR_LINE; 
CUR_ INDENT =".CUR_INDENT = T; 


CUR_LINE = .CUR_LINE - 1; 
END; 


Fg Le EQL 0} AND (.CUR_INDENT GEQ 0) 
BEGIN 
i An internal inconsistancy prevented finding the predecessors 


! of the current Line. This error is non-fatal: the last page 
} will de output as is. 


PEAR AAAAAAAAAA AAA AAA AAA A AAAA AAAS AAAAAAA AAA AS 


109 09 09 09 C9 INI SI SIN SISO A AAA AAA MMIII III BE 
PENA SSaNOUP UN —OOwe wane 2S Row 
AON BS EERE ELLE SE 


me en aa a a at at a a a a bs a ss a —) as — 2 9 Lag —) ss — 4 ss 


(on 
ee ce ce ce cee ee ee ce el ee ee ee ee ce ee ee ce ee ee ee ee ee ce el ce ee ee cl cl ee cel el cel el cel el cel el cel el el eel cl el el cel ll el el cel cel eee cel 


ZBLISS (BLISS32) 
N ! Signal errors for BLISS32 


CESLLSLSSSEIES 
SSESEzEES 


Be Be Se Se Se Se Se Ge Fe Se Ge Ge Ge Ge Me Ge Fe Ge Se Se Ge FF Se Ge Ge Se Ge Ge Gs Ge Gs Se FH Se FHSS Se HSH SH SF S5 Ss Se SH Se SESE SESH Sees Se Ssestse 
ee ae ee a ee ce ee ee a a a a ee a a ec ee ce ee a ce ee cc ee ee ee ee ee ee ed ee ed od ed 
ee ee ae cd ae cd a ct ed ee ee ed ch ct a ce ed ec a ce ce ce ce ae ee cae ce ct cd ae cae ce ce cc ce ce ce ee ce ee ee ee ee ea ee ee ee ee ee ed 
AANA A AA AN NWI AWA AHI III HHI BB EB EAE EWI AIP NII WWIII EE OO 


66° SIGNAL CINDEXS$_LASTCONT, 0, INDEX$_BADLOGIC); 
¥ 14. ZELSE ! Use S$XPO_PUT_MSG otherwise 
U org $XPO_PUT_MSG (SEVERITY = WARNING, 
+44 : ere STRING = ‘internal error - cannot generate continuation heading on last page’); 


= 
oo 
> 4 


wm 5 
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04-000 


3 


2s 


RETURN FALSE; 
END; 


joie) 
wr 


INCR_I io 0 TO . INDENT DO 


LAST 
; 167 
s 187 
3 1 1 a 
a 1880 
> 1204 1681 BEGI 
> 1205 16 ; LOCAL 
:4 06 16 S_: REF SSTR_DESCRIPTOR (), 
$ : 44 lone LINE_NO; 
: i 09 1886 LINE_NO = .LSTSTK (.1); 
: i + 188 ; WHILE. 2LINE_NO NEQ 0 DO 
: 1 ig 1690 4 LOCAL 
: 1214 1691 4 PTR, 
: Ste 1698 — 
: v 1694 4 S = LLINES C.LINE_NO, 0,0,0,0); 
: 1219 1696 4 IF .LTYPE C.LINE_NO] EQL CONT_HEAD 
ig ie a 
; 1$s6 1998 : Picked up a continuation heading 
> 1224 1701 4 PTR = CHSFIND_SUB (.S CSTRSH_LENGTH], .S CSTRSA_POINTER], 8, .CONT) 
: 1558 1708 aa, 
: \§ i HA ? Line not a continuation head 
; ig 3 1706 4 PTR = CHSFIND_CH (.$ CSTRSH_LENGTH], .S CSTRSA_POINTER], 0); 
: 1533 1708 4 IF CHSFAIL (.PTR) 
: 1238 1709 4 THEN 
‘15 Wy 8 age 
: 1335 ar ; Delimiter not found 
> 3 1714 LEN = .S CSTRSH_LENGTH); 
> 1238 1715 IF INDENT_LEVEL~(LLINES C.LINE_NO + 1, 0,0,0,0]) EQL .I + 2 
.1: eh ia! 
; i ‘] 718 Line is wrapped to next 
:1 28 1720 LINE_NO = .LINE_NO + 1 A 
; 4h V7 1 ELSE. 
: i 4g 4 § Line not wrapped to next 
; 48 1 5 7 LINE_NO = 0; 
> 1250 17 5 4 ELSE 
: 31 17 : BEGIN 
: i 38 7 9 Delimiter ‘ound 
> 1255 1732 LEN = CHSDIFF (.PTR, .S CSTRSA_POINTER)); 
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v04-000 LAST_CONT == eners e cont inuat von heading for 12286871382 93:09:78 RUNOFF SRE NDXPAG=OL I —_ 


Point to beginning of string 
PTR = .S$ CSTRSA_POINTER); 
IF CHSNEQ (1, .BLANKS, .LEN, .PTR, %C° ‘) 
THEN 
BEGIN 
| Line is non-blank. 
DECR I FROM .LEN = 1 TO 0 00 
IF CHSRCHAR (CHSPLUS (.PTR, .1)) NEQ %C° ° 
— 
ELSE 
Remove a trailing blank 


LEN = .LEN = 1; 


oo 


VIFWNM SO OONOULSWN OOM 


XITLOOP 


COOOOOO9O909 NI NIN INI NNN 


TCOUNT = .TCOUNT + 1; 
SSTR_COPY (STRING = (.LEN, .PTR), TARGET = TLINES C.TCOUNT, 0,0,0.0)); 
{iyPe C.TCOUNT] = CONT_HEAD; 


ak a a a a a aan ai ta an a ke a ak at a at a tt 2a 2 2 = 2 a a St a ts as ts 9 2 a © 1 
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1 


Br BDV S BPS AAAI INI IND GSE GTS SSSI TSI EB 


Be Se Se Ge Se Se Se Ge Ge Se Fe Ge Ge Fe Fe Be Ge Fe Ge Ge Ge Ge Ge Ge Fe FF Ge FF SF Gs Gs Ge Fe Ge Se Se Se Se SF Se Gs Se Ss Se SH Se Se Se Se Sse Se Sse Sse Sete Beas 
Be Be Ge Be Ge Fe Ge Oe Se Be Ge Se Se Se Se Se Ge Se Se Ge Ge Ge Fe Ge Ge Fe Ge Ge Ge Ge oe Ge Se Ge Se Ge Se Se Se SeSse Se Se Se Se Sess Se Seas te Ge Se Se eeeseas 


86 

87 

88 

44 

4 eu END; 

HOR 3 

oS % IF (GET_LEXT_LEN (TLINES C.TCOUNT, 0,0,0,0]) + .CONT_EXT_LEN) GEQ .MAX_EXT 
38 7 THEN 

44 a BEGIN 

99 6 i *(Cont.)" doesn't fit on current Line. 

4 4 See if it will fit on next Line. 
308 a ir ( 

0 80 (.CMDBLK CNDXSH_FORMAT] NEQ DSR) 
the g 1 ~~ ((, INDENT + 2) * MSPACE + .CONT_EXT_LEN GEQ .MAX_EXT) 
4] 7 § OR ( 

0 7 (.CMDBLK CNDXSH_FORMAT) EQL DSR) 

08 f 5 ve (C, INDENT + 2) * 2 + -CONT_EXT_LEN GEQ .MAX_EXT) 

(ne | i 

12 789 ! 


' 
Bump Line count, set Line type and copy Line 


oUg 
= 
iv 
> 
Gy 


< 


—abuiaiabaal 


we yates 
VEWN CO OONOULS WN" OOONOU LW 
eeceG 


ee ee a a ad 
2 09 09 Od 09 0D 09 09 OD CD 09 CD 0D CD 0D OD C9 CD 0D 0D 0D C9 09 09 09 09 09 C9 CD09 09 SI NININI NINN 


MRIPIPONNMINNUNUPUN 2 SS 


PEE 


WO COnNOoufwn—oo 


Ww 


a ee ce ee ee a ee a ee ee el lt ce ee ee ee ee ee ed ee 


Bee Oe Ge Fe Fe Oe Se Ge SHH Se Hs Oe SHS Ss Se BH Se Se VE SHE SH Se SHS Se SESH Se SHO SHS SESH SH Sees 


Www 
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NDXPAG == Output page formatting routines 4 01:06: AX-11 Bliss-32 V4.0-74 Page 56 x 
LAST_CONT == onere e cont suatten heading for 12-8001 384 94:88:39 CRUNOFF SRE NDXPAG.BLI; (6) vou 
’ ey put ‘(Cont.)* on new Line = hence can't generate a 
} continuation heading. 
MIF XBLISS (BLISS32) 
2 XTHEN ! Signal errors in BLISS32 
3 SIGNAL CINDEXS_LASTCONT, 0, INDEXS_DOESNTFIT, 2, .CONT_INT_LEN, .CONT); 
; ZELSE ! Use SXPO_PUT_MSG otherwise 
p $XPO_PUT_MSG (SEVERITY = WARNING 
0 XFI 
0 RETURN FALSE; 
0 END 
0 ELSE 
BEGIN 
Indent a new Line and append ‘(Cont.)' to it. 
Loc 


AL 
Line : VECTOR CCHSALLOCATION (200)], 


LEN; 


PTR = CHSPTR (LINE); 
LEN = (. INDENT + 2) * 2 = 1; 
CHSFILL (ZC° *, .LEN, .PTR); 


TCOUNT = .TCOUNT + 1; 
$STR_COPY (STRING = (.LEN, .PTR), TARGET = TLINES C.TCOUNT, 0,0,0,0]); 
Wa -TCOUNT) = CONT_HEAD; 


END; 
SSTR_APPEND (STRING = $STR_CONCAT ((1, .BLANKS), (.CONT_INT_LEN, .CONT)?, 
TARGET = TLINES C.TCOUNT, 0,0,0,04): 


SOONAMNE WN @ O OONAUN EWN HO ODOM EAR $$ O OONOUES WN —O 
=PININPITUININAL BEEBE EEE EPP PAL PEPE PPP PPP PEE EE 


RETURN TRUE; 
END; 


-PSECT SPLITS,NOWRT ,NOEXE,2 


0005F -BLKB 1 
29 2— SF 74 6€& 6F 43 28 00060 P.ABA: .ASCII \(Cont_.)\ : 


-PSECT SCODES,NOWRT,2 


des Dig 0: rast CON Gon Sgyg 22, R5,R4.R5.R6.A7.RERORIOAIT ; 1506 
35 6 AC Hi 00009 MOVL  L_NUM, R2 1570 


a hg a a tt nt a a sn a a > 4 a as — — 2 9 9 4 4 an 9 as 9 9 a ss 2 4 HY YH 


Sees Se Oe Be Se Se Se ae SE Se Se Ge Se Se Se Se Se Se Geese Be Se Ge Pee ee ee SHS Oe Oe ee Oe Be Oe Se Se Se Se Se ee BH Se SHS OH ee Be Oe SH Se SH Se Se Seas 


STRING = ‘can''t generate continuation heading on Last page’); 
| 


ee eee —t rt 
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NDXPAG NDOXPAG == Output page formatting routines 1h-se -1984 01:06:3 AX-11 Bliss-32 V4.0-74 p 7 NOX 
v04-000 LAST_CONT == enerate cont nuat ton heading for 132800138 93:09:78 RUNOFF ..SRCJNDXPAG.BLI; on a) v04 
OOOOOO00GEF42 7F 0000 PUSHAQ LLINESCR2] ; :] 
00000000v Ff $4 FB ig CALLS # JNOENT LEVEL : ae | 
A fFFOA 4 1 MOVAB  =-1(RO), INDENT : 71 
000000006 af ob iP atl #DSRINDEX$_LASTCONT : ape 
000000006 00 wil i 3 CALLS #1, LIB SIGNAL F oa sf 
04 AE 00000000° FF : F 1$: MOVAB P.ABA, CONT : 1898 3% 
8 A 8 D 7 MOVL #8, CONT_INT_LEN : 1396 . 
000000006 i B1 00058 cP CMOBLK+4; #1 ; 159 : 
B D4 00044 CLRL  CONT_EXT_LEN : 1609 33 
53 04 AE dO § 46 MOVL CONT? PTR : 1610 : 3 
51 D4 0 4A CLRL 3 1612 : 1 
14 11 4C BRB & : 3:1 
50 83 9A OO04E 2% MOVZBL (PTR)+, CH : 1618 : 1 
000000SF BF 0 D1 00051 CMPL H, #95 + 1620 33 
08 13 00058 BEQL ; 1} 
5B 00000000GFF40 cB 90054 ADDL2 @CHRSIZCCH], CONT_EXT_LEN : :] 
E7 51 08 AE F S662 3$: AOBLEQ CONT_INT_LEN, I, 3s : 1612 3:1 
F G 8F C MULLS #TMSSTD,~CMDBLK+12, MAX_EXT : 16 : 
6E 000000006 EF 00000000 F cS 09 MUL 5 BLK+1 1923 ; : 
58 07 o9 00073 4$: MOVL #7, CONT_EXT_LEN + 1631 :1 
of 000000006 EF DO 0007 MOVL CMDBLK+12, MAX_EXT 3 1632 31 
5 A DO OOO7F 5$: MOVL INDENT, CUR_INDENT + 1635 3 3 
2¢ D7 00082 6$: DECL CUR_LINE 3 1636 3} 
53 D5 00084 TSTL CUR-INDENT : 1638 : 1 
gp 19 00086 BLSS ; 21 
‘ b> 0088 TSTL UR_LINE : :] 
29 15 0008A BLEQ ; $1 
OQOOOOOD0GEF42 7F 008¢ PUSHAQ LLINESCCUR_LINE) : 1643 
00000000V_ EF 01 FB 0009 CALLS #1, INDENT-LEVEL : 
50 D1 OO09A CMPL  CUR_INDENT; RO : 
E if 0090 BNEQ : 
05 00000000GEF 42 bi O09F CMPL LTYPECCUR LINE], a5 + 1644 
00000000GEF 43 5 DO 000A9 MOVL CUR_LINE, LSTSTKCCUR_INDENT) : 1650 
53 07 00081 DECL CUR~ INDENT > 1651 
cD 11 0085 BRB : 1654 
2 05 00085 7$: TSTL UR_LINE : 1657 
ig 12 00087 BNEQ : 
53 05 00089 TSTL UR_INDENT : 
18 19 00088 BLSS : 
000000006 gf bb 9 a PUSHL #DSRINDEXS_BADLOGIC ; 1669 
000000006 i DD 000C SHL #DSRINDEX$_LASTCONT : 
000000006 00 ore Fe c CALLS ’ § LIBSSIGNAL Pia 
54 01 CF D gs: MNEGL #1, I : 1680 
0003 D $: RW 22$ : 
56 O0000000GEF 64 e : 108: ROVL Linen LINE_NO : 1686 
Fi E BEQL . ; 
58 90000000GEF46 re a MOVAQ LLINESCL INE NO]. S > 1694 
08 OGEF 46 t Ef CHPL L TYPE LINE_RO}, #11 ; 16% 
55 68 3C 9 MOVZWL (5S), RS > 1701 
| 
} 


> 6 
NDXPA NDXPAG == Output page formatting routines 16-Sep-1984 706: AX-11 iss- 4.0-74 ND) 
v04-000 LAST_CONT == Generate cont inuat ton heading for 132808-1 38% 94:08:78 RUNOFF’ SRE NDMPAG-OL{ Seven a v04 
59 04 =A OF MOVL 4(S), R9 : | 
469 55 04 BE R § MAT CHC z , SCONT, RS, (RO) : | 
53 p 1 MOVL R3 : 
F 108 12$ MOVAQ =(R3), PTR : 
1 } 1 BRB 15$ ; 
55 6 ¢ 110 13$ MOVZWL (5), RS + 1706 
9 06 =A 2 113 MOVL 4<(S5, RO : 
69 55 A 00117 LOCC }§=—«_s#0,,_—-RS,,_ (ROD : 
12 00118 BNEQ 148 : 
D4 00110 CLRL sR : 
57 | bg 11f 14$:  MOVL 1, PTR : 
iB 1 122 15$: BNEQ  16$ : 1708 
QOOOO000GEF46 7F ot 4 PUSHAQ LLINES+8CLINE_NO] + 1715 
00000000v ef 01 FB 001 8 CALLS #1, INDENT_LEVEL : 
1 02 Ad 9E 001 MOVAB 2(R4), R1 : 
51 50 Di 00136 CMPL RO ri : 
OF oe O18B PNEL its NO : 1720 
06 11 S18 BRB 18$ ~ : 
55 57 59 C3 OO13F 168: SUBL3 R9, PTR, LEN : 1732 
56 D4 00143 17$: CLRL == LINE_NO : 1737 
57 59 pO 00145 18$: OVL R9, PTR : 1743 
55 20 00000000" FF 01 20 00148 CMPCS #1, @BLANKS, #32, LEN, (PTR) + 1745 
8F 13 00152 BEQL 11$ : 
50 55 D0 00154 MOVL LEN I > 1751 
08 11 00157 BRB 0$ : 
20 6047 91 00159 198 CMPB Es CI) CPTRI, #32 : 1752 
93 Ng 0015p BNEQ 21$ ; 
5 p? 0015F DECL LEN : 1759 
FS 50 F4 00161 08: SOBGEQ I, 19$ : 1752 
000000006 EF 06 00164 21$: INCL TCOUNT : 1764 
50 000000006 EE D0 O016A MOVL =: TCOUNT, RO > 1765 
F8 AD 5 BO 00171 MOVW LEN, SSTRSSTRING : 
FA AD 0E 90 00175 MOVB #14, S$STRSSTRING+2 : 
FB OAD 01 90 00179 MOVB #1 SSTRING+3 ; 
FC AD 57 00 017 OVL PTR, $STRSSTRING+4 F 
000000006 EF 9F 00181 PUSHAB STRSFAILURE : 
: 4 00187 CLRL  =(SP) ; 
QOO00000GEF40 7F 00189 PUSHAQ TLINESCRO) : 
F8 AD 9F 0019 PUSHAB $STRSSTRING ; 
rE D4 0019 CLRL = = (SP) ; 
000000006 Ft 05 F 19 CALLS #5, XSTSCOPY ; 
0 000000006 EF D 19¢ MOVL TCOUNT, R : 1766 
00000000GEF 40 : 00 1A MOVL #11, TTYPECROJ ; 
FF 1 001A BRW 11$ : 1688 
FF27 54 1 A F1 OO1AE 22$: ACBL INDENT, #1, I, 10$ : 1680 
0 000000006 _ EF b0 1B4 MOVL ——« TCOUNT RO : 1772 
OOOO0000GEF4O 7F 001B PUSHAQ TLINEst 0 ; 
00000000v fF 1 FB 1C CALLS #1, GET_EXT_LEN ; 
0 C 1C ADDL CONT_EXT_LER, 3 
6E D1 OOICC CMPL RO, MAX_EXT : 
18 1CF BGEQ : 4 : 
OOA 101 BRW 4 ; 
01 000000006 Ff 8} 1D4 238: CMPW CMDBLK*4, rh ; 1780 
5 108 BEQL 4$ : 


01 


50 
6E 


000000006 00 
SA 20 


0c 
OE AE 
OF AE 
10 


000000006 _ EF 
OQOO00000GEF 40 
F AD 


aan 
FWNHOCOWrc 
> 


00000000G_ EF 


000000006 fF 


NDXPAG == Output page formattin 
LAST_CONT == Generate continuat 


os Banus 


1 
000000006 iH 


000000006 oF 


Onn & 


E 
OQO000000GEF 40 
18 AE 


AMAROQOOOCOCOCOCSCOPW LBL NOOCOCCOH OOLM Oo £90000 OMnN om" 
SSSSLSARSEF 


OOlT OWOWDOOOWDVIIO "VTONTOVCOOTIOSO VOOOWTNOIOCITITO-OCW@—9o 0-0 


it 
doo0000cEFs| 
30 


O~yT sui" Oo 


CVOoowwwr,r>rs>s> 
Wo 


SOOOCOCOCOCOOCOSOOSOCOOOSOSOSSSSS BOOS SOOSCCCOCOCOOCCSCOOOCOOOOCOOOOOOOOOOO 


PIPPIN PIPPIN IPYPIPIPIPIPIPNIPIPYPIPIPIPIPIPIPINIPIPIPOPINPYPIPIPIPYPOPIPUPIPYPIPPIMINPINININ 2 


SOOCSCSCOGOOOCOOOOOOOOOOOOOOOOSOOSOOOOOOOCOOOoOO 


94:06:32 AX-11 Bliss-32 V4.0-74 


RUNOFF ..SRCIJNDXPAG.BLI; 


#MSPACE, INDENT, RO 
CASPACE S@> (CONTEXT LEN) CROJ, RO 


MDBLK+4, #1 
4(CONT_EXT_LEN) CINDENTJ, RO 
RO, MAX_EXT 
26§ 

CONT 
¢ NT_INT_LEN 
#DSRINDEXS_DOESNTFIT 


#DSRINDEX$_LASTCONT 
#6, LIBSSIGNAL 


LINE, PTR 
We, LEN 


#5, LEN 
#0, (SP), #32, LEN, (PTR) 
TCOUNT 


SSTRSSTRING+4 
$F AILURE 


TLINESCROJ 
SSTRSSTRING 
=(SP) 

#5, XSTSCOPY 
T NT, RO 
#i1, TTYPECROJ 

#1, SSTRSSTRINGO 
#14, S$STRSSTRINGO+2 
#1, SSTRSSTRINGO+3 


N 
4 
TR 
TR 

I 


INGO+4 
CONT_INT_LEN, SSTRSSTRING1 
# $s G1+2 


TCOUNT 
TLINESCR 


=(SP) 
#5, se renrrem 
#1, R 


RO 


NN eee od 


F 6 
NDXPA NDXPAG == Output page formatting routines 16-Sep-1984 01:06: AX-11 Bliss-32 V4.0-74 o 0 ) 
yOu~000 LAST_CONT = enerate continuation heading for 12286871382 94:89:78 LRUNOFE -SRCINDXPAG.BLI; ti (8) vou 
04 00206 RET 
; Routine Size: 727 bytes, Routine Base: S$CODE$ + 0883 


6 
NDXPAG NDXPAG == Output page formatting routines 18-Sep-1984 94:06:32 ah Bliss-32 V4.0-74 Page § 
v04-000 GET_EXT_LEN = Get external length of Line 14-Sep-1984 13:07:1 RUNOFF ..SRCJNDXPAG.BLI; ( 


3; 2? 1831 1 XSBTTL 'GET_EXT_LEN = Get external Length of Line’ 
? | ° 1 ¢ 1 ROUTINE GETLEXT_LEN (DSC) = 

3 1 1 1 le 

; 1358 1854 1! 

H : 23 : 5 : FUNCTIONAL DESCRIPTION: 

; 1361 1 ; 17 This routine returns the external length of a Line in either 
; ; ? i . : } number of characters or in TMS relative units 
3; 1364 1840 1 ! FORMAL PARAMETERS: 

; 1365 1841 1! 

; 4 $ 1 ri} 2 dsc - Address of string descriptor of Line 
>; 136 1845 1! 

>; 1368 1844 1 ! IMPLICIT INPUTS: 

; 1369 1845 1! 

; 1370 1846 1! CHRSIZ = TMS character size vector 
; 1371 1847 1! 

3; 1 Le: 1848 1 ! IMPLICIT OUTPUTS: 

; 137 1849 1! 

3 1374 1850 1! None 

3; 1375 1851 1! 

; 1376 1836 1 ! ROUTINE VALUE: 

; tere 1853 1 ! COMPLETION CODES: 

>; 1378 1854 1! ; 

3; 1379 1855 1! Returns external length of Line 

: 1330 1856 1! 

; 1381 1857 1 ! SIDE EFFECTS: 

: 1386 1858 1! 

; 138 1859 1! None 

: 1384 1860 1 !-- 

; 1385 1861 BEGIN 

; 1386 1396 

3; 1387 186 MAP 

>; 1388 1864 DSC : REF SSTR_DESCRIPTOR (); 

3; 1389 1865 

; 1390 1866 LOCAL 

3; 1391 1867 PTR, 

; 1398 1868 EXT_LEN; 

3; 139 1962 

; 1394 1870 PTR = .DSC_CSTRSA_POINTER); 

: 1395 1871 2 EXT_LEN = 0; 

3; 1396 1376 

3; 1397 187 INCR I FROM 1 TO .DSC CSTRSH_LENGTH) DO 
3 1338 i3re BEGIN 

: 1399 1875 LOCAL 

: 1400 1976 CH; 

3 1401 187 

: 1208 1878 CH = CHSRCHAR_A (PTR); 

3; 140 1879 

3; 1404 1880 SELECTONE .CH OF 

: re : 3) SET 

: 1409 1888 ace"): 

3; 1408 1884 4 

3; 1409 1885 ! Bold sequence. Doesn't add to external length. 
3; 1410 1358 ; 

3 1411 1 : 


3 


< 
2 


yt er er et ee 


PUPS STS EBS BS SB BE EB NAAN AA WI AIDPIPPOPOPPNPNPPD 2 SO SS 


SOOWNAO NEW - 2 OOONPAUES WN (OO OONAU EWN “OO OANOULS Wir s 


ee a ed ed wd ed ed od wd dd dd dd 


Bt el ek tal ek et at at ek ee ek ee 


—OODOnNOufswh— 


oon 


mo 
—=< 

v 
m> 


<a 
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-- Output page formatting routines 16-Sep-1984 01:06:3 AX=11 Bliss-32 V4.0-74 ND) 
TLLEN = Get external Length of Line 12286871388 94:09:78 RUNOFF .SRC NDKPAGLBL I shee (35 v4 


Oz 


C2C°S"): 
Underline sequence. Doesn't add to external Length 


CxC°2"): 
BEGIN 


i Overstrike sequence. 
Next character doesn't count either. 


CHSRCHAR_A (PTR); 
e,6 ¢ i 


COTHERWISE): 
BEGIN 


An ordinary character. 
if .CH EQL XC'_" 
THEN 
BEGIN 
Quote sequence doesn't count 
CHSRCHAR_A (PTR); 
I= .] 1; 


IF _.CMDBLK CNDX$H_FORMAT] NEQ DSR 
THEN | 


For TMS, use relative character size table 
gee TAtEN = .EXT_LEN + .CHRSIZ C.CHI 


For RUNOFF, just count a character 
EXT_LEN = .EXT_LEN + 1; 
ND; 


TES; 
END; 


RETURN .EXT_LEN; 
END; 


ee ee er ee en ne ee ee ee ee ee ee ee ee ee ee oe ee ee ee ee ee ee ey 

BLALAAASrorwrmrmwimivny +s 2 So SLO SOSOSSOOS OOOO OOOO ODES 
IIAPOMOPOPONPOPO - 

PUAN DOONAN WIN O OD NOA UE WIN (OOD NOU EWN CO OONOULSWWIR—O0OO 

=PININIWWIN EE BES ESSE EEE PNB BEES EPA BPP EE PW 


WWW 
uw 


001C 00000 GET_EXT_LEN: 
«WORD Save R2,R3,R4 : 1832 


NDXPAG NOXPAG == Output page formatting routines 1b-5e Sep-1984 AX-11 Bliss-32 V4.0-74 Page 63 
v04-000 GET_EXT_LEN = bet enternal Length of Line 1 eet y 9}: 88: 2 RUNOFF .SRCJNDXPAG.BLI; " 3 
0 4 ac oO MOVL DSC, RO : 1870 
8 Ab § 06 MOVL 4(RO), PTR : 
3 C A MOVZWL (RO), R3 + 1873 
h 41 0000F grass 
50 4 OA on 1$ MOVZBL (PTR)+, CH : 187 
2A D1 00014 CMPL cH, #42 : 188 
13 O17 BEQL $ ; 
26 D1 19 CMPL cH, #38 + 1890 
@0 13 0001C BEQL $ : 
25 0 D1 OO01E CMPL cH #37 + 1895 
06 if 0 BNEQ $ : 
4 0 INCL PTR + 1901 
51 Ds 00 INCL 1 : 1902 
22 11 000 BRB $ + 1880 
0000005F BF 0 p| 09 9 2$ CMPL cH, #95 : 1910 
Bob Soo? TNE : 1916 
01 000000006 EF B81 $60 6 3$ CMPW CMDBLK+4, #1 + 1920 
OA 13 90 D BEQL 6: 4$ : 
52 000000006F F49 £6 O005¢ ADDL2 ack RSIZCCH], EXT_LEN + 1925 
3 og 00049 4$: INCL _— EXT_LEN : 1930 
C2 51 53 F3 00048 5S: AOBLEQ R3,71, 1$ > 1873 
50 52 D0 0004F MOVL  EXT_LEN, RO : 1936 
04 00052 RET : 1937 


; Routine Size: 83 bytes, Routine Base: S$CODE$ + OBB8A 


3 1462 1938 1 
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Oon~ 
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oo 
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on 
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SRENLSSESES 


SSSS33 
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RSBTT!. "INDENT LEVEL = Get indent Level of string' 
ROUTINE INDENT LEVEL (DSC) = 


FUNCTIONAL DESCRIPTION: 
This routine computes the indent Level of a line 


The indent level is equal to 1/2 the number of 
leading spaces on the Line. 


If the Line is blank or begins with a tab, the indent level is <1. 
The number of leading spaces is found by taking the 
difference of a pointer to the first non-blank character 
and a pointer to the beginning of the Line. 
! FORMAL PARAMETERS: 
DSC - Address of string descriptor describing the Line 
IMPLICIT INPUTS: 
None 
! IMPLICIT OUTPUTS: 
None 


ROUTINE VALUE: 
: COMPLETION CODES: 


Returns the indent level of the input Line : ‘ 
Returns -1 if the Line is blank or if the Line begins with a tab. 


SIDE EFFECTS: 


None 
BEGIN 
MAP 
DSC : REF $STR_DESCRIPTOR (); 
LOCAL 
LEN, 
PTR; 
LEN = .DSC CSTRSH_LENGTH); 
PTR = .DSC CSTRSA-POINTER); 
IF CHSEQL (1, CHSPTR (UPLIT (" ')), .LEN, .PTR, %C° ") 
THEN 
. Blank Line. 
RETURN =1 
ELSE 


SS 


RUNOFF .SRCJNDXPAG.BLI; 


a Ne NN I OO TO NSS SCN EL SE OE NO 8 eS ee ee ee ee eS ee ee ee ee ee a SS SS Se 


v0. 


K 6 
PA PAG == -Sep- :06: - - .0- 
your O80 INDENT LEVELS Get tndent Levelcof string -1aaSep=1986 SS:00:75 — ERUNOFE SRE SNDXPKG-BL I; Pege 8} 


; Routine Size: 57 bytes, Routine Base: $CODE$ + OBDD 


: 1521 1996 27 
3 : ¢ : 2 Non=-blank Line : 
: 1534 199 if CHSEQL (1, CHSPTR (UPLIT (' ')), 1, .PTR) 21 
; 5 990 THEN 
: | ? O0¢ ; Line begins with a tab ; 
: 13 9 004 RETURN =1 : 
; i 9 905 ELSE 3 
: 13 ¢ 097 Compute indent Level 7 
: 1534 009 RETURN CHSDIFF (CHSFIND_NOT_CH (.LEN, .PTR, %C' "), .PTR) / 2; :1 
: 1339 010 es é : 1 
: 15 011 7 END; 3 
4 
-PSECT $PLITS,NOWRT ,NOEXE , 2 i] 
00 00 00 20 00068 P.ABB: .ASCII \ \<0><0><0> ; 1 
00 00 00 O09 Q0O06C P.ABC: .ASCII <9><0><0><0> : : 
t 
.PSECT SCODES,NOWRT,2 : 
003C 00000 INDENT_LEVEL: 71 
<WORD Save R2,R3,R4,R5 : 1940 71 
50 04 AC DO 00002 MOVL DSC, RO : 1986 31 
55 60 3C 00006 MOVZWL (ROS, LEN : 77 
54 04 AO 00 00009 MOVL  4(ROS, PTR : 1987 71 
55 20 00000000' EF 01 2D 99000 CMPCS #1, P.ABB, #32, LEN, (PTR) : 1989 ; 
09 13 00017 BEQL =s«1$ : :1 
64 00000000' EF 91 00019 CMPB =s-&P. ABC, (PTR) : 1999 : 1 
05 12 B05 0 BNEQ 2s 3 e. 
51 01 CE 00022 1$ MNEGL #1, R1 > 2004 3 | 

: 11 00 BRB 4$ : ; 
64 55 38 0027 2$ SKPC = #32, LEN, (PTR) : 2009 7 
2 12 00028 BNEQ 3$ : > 
1 D4 0002D CLRL. sR : 3) 

51 54 ce 00 F 3$: SUBL2 PTR, R1 : ; 
2 9 C ¢ DIVL2 #2, R1 : 2 
0 1 00 00 4$: MOVL 1. RO : 1999 3 | 
04 00038 RET ; 2011 : 
= | 


tei 


6 
AG == Output page formatting routine ibese -1984 :06:3 AX-11 Bliss-32 V4.0-74 P 
ECHEAD == Buitdes guide head foreIMet or T lecsenetORs $Hioste | AUN esaeSnaxekeco f, age $6 


ZSBITL "GUIDE_HEAD == Build a guide head for TMS11 or TEX' 
ROUTINE GUIDE_HEAD (DSC) : NOVALUE = 


UW 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


20 68 67 SC 78 OQO070 P.ABF: .ASCII \{\<92>\gh \ 
aM ite: ; ma 


~PSECT SOWNS,NOEXE,2 
0005 00094 SSTRSSTRINGO: 
«WORD 


P.ABG 


NDXP 
GUID 
: 1538 1 1 
3; 1539 ee 
3; 1540 14 «1 
3 1541 1” 33 
; : 3 818 : FUNCTIONAL DESCRIPTION: 
3 : te 818 : } This routine inserts the format strings into a guide heading 
: 1302 020 1 ! FORMAL PARAMETERS: 
180g 052 1 | DSC = Add f guide head stri 
: ! - ress of guide head strin 
: 1549 0 gi “ ° 
3; 1550 4 1 ! IMPLICIT INPUTS: 
3; 1551 025 1! 
3 1226 0 § 1! None 
; 155 0 1! 
3; 1554 028 1 ! IMPLICIT OUTPUTS: 
; 1555 029 1! 
; 1556 sp 01! None 
3; 1557 031 1! 
3; 1558 soRg 1 ! ROUTINE VALUE: 
3; 1559 2033 1 ! COMPLETION CODES: 
3; 1560 te 1! 
: 1561 035 1! None 
3 1206 036 1! 
: 156 037 1 ! SIDE EFFECTS: 
3 1564 038 1! 
3; 1565 2039 1! None 
3: 1566 040 1 !-- 
3 1567 041 BEGIN 
3; 1568 beg 
3; 1569 204 IF .CMDBLK CNDX$H_FORMAT) NEQ TEX 
; 1570 Spee § THEN 
3 1571 045 ! 
3 1228 soeg : TMS11 output 
3; 1574 aes SSTR_COPY (STRING = SSTR_CONCAT (TMS_GUIDE, .DSC, TMS_TXT_FMT), TARGET = TMS_TMP) 
3 13%? 049 2 ELSE 
3; 1576 050 ! 
3 1577 051 ' TEX output 
3; 1578 B26 : 
3 1309 soee SSTR_COPY (STRING = S$STR_CONCAT ("{\gh ', .DSC, *}"), TARGET = TMS_TMP); 
3 135! spe SSTR_COPY (STRING = TMS_TMP, TARGET = .DSC); 
3 1582 056 END; 


SS 


} 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
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NDXPAG NDXPAG == Output page formatting routine 16-Sep-1984 01:06: AX-11 Bliss-32 V4.0-74 p 7 
v04-000 GUIDE HEAD == Buildea guide head for TMS1% or T 10-860 -1 $84 93:08:73 RUNOFF .SRCJNDXPAG.BLI; ten (85 


00809 ob: 20998 ‘ADDRESS ABE ‘ 


9C SSTRSSTRING 


<z 
eg 


«WORD 1 : 
1 9 -BYTE 14, 1 ; 
00000006" tart ADDRESS P.ABG : 
SSTRSSTRINGO= TMS_GUIDE 
SoTRSSTRiNeee TMS_TXT_FMT 
SSTRSTARGET= TMS" TMP™ 
SSTRSTARGET= TMS~TMP 
SSTRSSTRING= TMS_TMP 


«PSECT SCODES,NOWRT,2 
001C 00000 UEOE, JEP: . 


ORD Save R2,R3,R4 3 2013 
54 000000006 EF 9E 99002 MOVAB XSTSCOPY, R4 : 
53 000000006 EF 9E 0000 MOVAB STRSFAILURE, R3 : 
52 00000000' EF 9E€ 00010 MOVAB $STRSTARGET, R2 : 
04 000000006 FF B1 00017 CMPW 383s CMDBLK+4, #4 + 2043 
8 13 0001 EQL~—édTSS: : 
28 A2 9F 000 PUSHAB $STRSSTRING2 > 2048 
4 AC 0D 000 PUSHL DSC ; 
10 A2 9F 00026 PUSHAB $STRSSTRINGO : 
0B 11 00029 BRB 2$ : 
0098 C2 9F 0002B 1$ PUSHAB $STRSSTRING2 : 2053 
04 AC DD 0002F PUSHL DSC : 
0090 C2 9F 00032 PUSHAB SSTRSSTRINGO : 
000000006 EF 9 FB 90036 2$ CALLS #3, XSTSJOIN : 
DD 903 PUSHL ; 
ze D4 90 F CLRL. = (SP) : 
9 BB 00041 PUSHR #*M<RO,R2> 3 
E D4 00043 CLRL =(SP ; 
64 05 FB 00045 CALLS #5, XSTSCOPY : 
53 DD 00048 PUSHL R3 : 2055 
7E D4 O004A CLRL. = (SP) F 
04 AC DD 0004C PUSHL DSC : 
52 DD OO04F PUSHL ; 
43 D4 9091 CLRL. = (SP) ; 
64 05 FB 00053 CALLS #5, XSTSCOPY : 
04 00056 RET 3 2056 


; Routine Size: 87 bytes, Routine Base: S$CODE$ + 0C16 


ee ee ee ee ee ee ee ee ee ee ee ee ee eee 


+ 


' 
User specified /TMS11=A 


[3s3Sccs 
MPwnN—o 
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NDXPA NDXPAG == Output page formatting routine 16-Sep-1984 01:06:3 AX-11 Bliss-32 V4.0-74 Page 68 ) 
v04-000 IMSIN, == Generate INST) top ortitersteing — Vergeb-iope Soiogsts — LANNOE eOSRESNDRPAG Or fs oe 185 voe 
3; 1584 057 1 XSBITL 'TMSINI == Generate TMS11 top of file string’ ; | 
: 1585 0 8 1 GLOBAL ROUTINE TMSINI : NOVALUE = : | 
31 86 1 !44 ; 

: 1587 060 1} :] 
; 1386 tt : FUNCTIONAL DESCRIPTION: : } 
3 1590 0 g 17 This routine qqreretes and outputs the top of file sequence for :] 
; 1391 064 1! TMS11 output files 7] 
21 3 065 1! : 1 
; 159 066 1 ! FORMAL PARAMETERS: : ] 
: 1594 067 1: :] 
; 1399 068 1! None :] 
: 1596 $ 1) :] 
; 1597 070 1! IMPLICIT INPUTS: 3 1 
; 1598 071 1! :] 
; 1599 Ore 1} CMDBLK - Command Line information block :] 
; 1600 073 1! TMSCOL - Default TMS column width :] 
: 1601 074 1! :] 
: 1608 075 1! IMPLICIT OUTPUTS: : 1 
; 160 076 1! : 1 
3 1604 077 1: TS_ TMP - Modified : 1 
: 1605 078 1! TMSTOF - Contains top-of-file string 

: 1606 079 1! TMSSIZ - Ideal file size in blocks 

3; 1607 080 1! TMS_TXT_FMT - Text format markup (different for /TMS=A and /TMS=E) 

: 1608 081 1! TMS_FOOT - Page footer markup (different for /TMS=A and /TMS=E) 

3 1o0e oes : TMS _PAGE - New page markup (different for /TMS=A and /TMS=E) 

3 1611 2084 1 ! ROUTINE VALUE: 

: 161g 2085 1 ! COMPLETION CODES: 

: 161 2086 1! 

3 1614 087 1! None 

: 1615 088 1! 

: 1616 089 1 ! SIDE EFFECTS: 

> 1617 090 1! 

: 1618 091 1! None 

: 1619 092 1 I-- 

3 1620 09 BEGIN 

+ 1621 094 LOCAL 

: 16e¢ 095 C 

: 16 09 Ts; 

3 1624 09 

3 1625 098 IF .CMDBLK CNDX$H_FORMAT) EQL TMS11_A 

> 16 $ 099 THEN 

3 16 1 BEGIN 

: 1628 1 

3 1669 1 

3 1650 1 

> 1631 1 SSTR_COPY (TARGET = TMSTOF, STRING = ‘*starte*texte'); 

: 1638 1 SSTR7COPY (TARGET = TMS_TXT_FMT, STRING = ° p10)"; 

: 1633 10 SSTR7COPY (TARGET = TMS"FOOT, STRING = ‘Cva36JLfbJIndex+n'); 

: 1635 108 IF .CMDBLK CNDX$V_TELLTALE) 

: 1036 109 THEN 

: 16 110 4 ese rRa COPY (TARGET = TMS_PAGE, STRING = ‘Cva5S0J/_/L") 

: 1638 1g SSTR_COPY (TARGET = TMS_PAGE, STRING = ‘Cva50J/_/\Cva50)"); 
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NDXPAG == Output page formatting routines 16-8 Sep :3 AX-11 Bliss-32 V4.0-74 y 
TMSINI == Sonerate Pasi top of tite string 4-Sep =1382 9}: 88: 3 RUNOFF .SRC NDAPAG LOLA: Page $3 vo. 


END 
ELSE 

BEGIN 

i Initialize for /TMS11=€ 

$STR_COPY (TARGET = IMSTOF, STRING = ‘estar desete xte'); 

SSTRICOPY (TARGET = TMS_TXf FAT STRING = OF) 

SSTR-COPY (TARGET = TMS"FOOT, STRING = 'Cva 4) Bit Tedder ); 

IF CMDBLK CNDX$V_TELLTALE) 
SSTR_COPY (TARGET = TMS_PAGE, STRING = 'Cp10)Cva50]/_/L") 
SSTR_COPY (TARGET = TMS_PAGE, STRING = 'Cp10JCva50]/_/\Cva50)"); 


2.2 


! 
Write the version number 
$STR ee (TARGET = TMS_T 


$STR_C oncaT < INDEX version ', (.NDXVRL, .NDXVRP) 
TMSPUT (. TMS_ TMP CS TRSH TUENGTHY .TMS_TMP tstrsan POINTER), OUTIOB, "FALSE: 


RIP IDAAAPIPINI HA AGDIPIPIPINIPINIPINPINIDNIPIPINPIPINPIPIPIPIPIPIPIPIPIPIPIPI WI FN WWIII 


4 Write the command Line 

4 ésTR COPY (STRING = $STR_CONCAT ("< °, CMDBLK CNDXS$T_ COMMAND LINE], * >*), TARGET = TMS_TMP); 

2 TMSPOT ( (.TMS_TMP CSTRSH _CENGTHI, TMS” TMP CSTRSA POINTERI, o0T108, FALSE): 

4 ! 

Pr Compute tab stop 

4 TS = .CMDBLK CNDX$G COLUMN ui0) * 18; 

¢ TS = (IF (.TS MOD TASCOL) REQ THEN 1 ELSE 0) + (.TS / TMSCOL); 

5 ! 

: Compute column width and ideal file size 

: SELECTONE -CMDBLK CNDXSH_LAYOUT) OF 

5 

5 CTWO_COLUMN): 

3 C = .CMDBLK CNDX$G_COLUMN_WID] * 2; 

6 pests = 40; ! Ideal size is 40 blocks for TWO_COLUMN output 

6 co 

6 (SEPARATE): | 

6 C = .CMDBLK CNDX$G_COLUMN_WID] + .CMDBLK CNDX$G_SEPARATE_WIDTH); 

08 nssie = 25; ! Ideal size is 25 blocks for SEPARATE MASTER format 

% : 
| 


SS en * 


7 

XPAG NDXPAG == Output page formatting routine 1heso 1984 06:3 AX-11 Bliss-32 V4.0-74 Pp 
yOs-080 TMSINI == Generate Insti top of tite string 12-88-1382 94:98:72 RUNOFF. SRCINDXPAG.BLI; age 408 
3 1698 17) COTHERWISE2: 
: 1760 178 C = .CMDBLK CNDX$G_COLUMN_WID]; 
: 1208 175 TMSSIZ = 20; ! Ideal size is 20 blocks for ONE_COLUMN or GALLEY formats 
; 170 178 END; 
5 1704 17 
i oe RA 
: 170 180 C = (IF (.C MOD TMSCOL) NEQ 0 THEN 1 
: 1708 181 a : 
AR we 
: wn 184 | Build top of file string and write it out 
: 1718 P 186 $STR_APPEND (TARGET = TMSTOF, 
: 1714 P 21 STRING = $STR_CONCAT ('Cvi2c', SSTR_ASCII (.C), ‘ts', 
: 1715 P 2188 $STR_ SC TS), ',', SSTR_ASCTI (.TS + .CMDBLK CNDX$G_GUTTER_WIDJ), 
: 1716 189 *)",~TMS_TXT_FMTS); 
: 1718 $194 TMSPUT (.TMSTOF CSTRSH_LENGTH], .TMSTOF CSTRSA_POINTER], OUTIOB, FALSE); 
: 1719 $136 TMSPUT (1, .BLANKS, OUTIOB, FALSE); 
ist Beg 
: 1788 1 ; Put out title 
: 1724 199 $STR_COPY (STRING = S$STR_CONCAT (TMS_TITLE, TMS_TXT_FMT), TARGET = TMS_TMP); 
; 1763 $138 § TMSPOT (.TMS_TMP CSTRSH_CENGTH], .TMS_TMP CSTRSA_POINTERS, OUTIOB, FALSE); 
: 1788 2200 1 END; 


~PSECT SPLITS,NOWRT,NOEXE ,2 


2A 74 78 65 74 2A 2A 74 72 61 764 73 2A 00076 P.ABJ: .ASCII \*starte*texte\ : 

5D 30 31 £9 31 66 5B 00083 P.ABK: .ASCII \E#1p103\ : 

78 65 64 6€ 49 SD 62 66 5B 5D 36 33 61 i: 58 OOBA P.ABL: ASCII \Cva36JLfbJIndextn\ : 
6C 2F SF 2F *D 30 35 61 76 g8 0098 P.ABM: ASCII \ va50}/_/t\ : 

30 35 61 76 SB 6C OF SF 2F 5D 30 35 61 76 8 OAS P.ABN: ASCII \f€va503/7/LCva50I\ 
2A 74 78 65 74 65 2A 2A 2 74 22 1 7% 73 SA bons P.ABO: .ASCII \*start2**etexte\ : 
D et. ; 31 66 5B C4 P.ABP: -ASCIT ef p103\ : 

SD 62 66 SB 5D 31 31 70 : p 36 ; 61 é 38 cc P.ABQ: <ASCII \fva36JCp11IC fb) Index+n\ 
6C 2F SF 2F SD 30 35 61 76 5B 5D Ff 15 B ee P.ABR: ASCII \ p10} va501/_/1\ : 
6C 2F SF 2F 5D 30 35 61 76 5B 8 7 4 4 of P.ABS: .ASCII \Cp10)Cva50J/_/ltCva50)\ : 
6E 6F 69 73 72 65 76 20 58 2 44 4E 49 2 108 P.ABV: .ASCII \< INDEX version \ ; 
t 118 P.ABW: ASCII \ >\ : 

¢ 118 P.ACB: <ASCII \< \ : 

E 11A P.ACC: <ASCIIT \>\ : 

63 32 31 6 B OO1IC P.ACJ: ASCII \Cvi2e\ : 

73 74 131 P-ACK: <ASCII \ts\ : 

2C 001203 P-ACL: <ASCII \,\ : 


ELSE 0) 

(.C * 18 / TMSCOL) + .CMDBLK CNDX$G_GUTTER_WIDJ; 
| 

| 

| 

| 


NDXPAG == Qutput 


matting routine 
TMSINI == Generat tit 


1 
top of file string 1 
4 


5d 0012 


0000 000A4 


old HN 
QOOA 


20086 


So9oQn A020 OOoW 
om 


See FSm aeoe Fom Hee Fom See Fom Soo & 


o 


——— =O OOO COCO COO COO SCOOoSOoO O00 COCO COCO oO 
aan TAM Mm mmo COS 


ooo oOo Sooo coo OoSSo SCoSso SOO Soo ScOoOSoO COO 


~$e9-1984 01:06:39 


RUNOFF .SR 

P.ACM: .ASCII \IJ\ 

»PSECT SOWNS,NOEXE,2 
SSTRSSTRING: 

W 13 

-BYTE 14, 1 

»ADDRESS P.ABJ 
SSTRSSTRING: 

W ? 

BYTE 14, 1 

sADDRESS P.ABK 
SSTRSSTRING: 

»WOR 17 

BYTE 14, 1 

sADDRESS P.ABL 
SSTRSSTRING: 

-WORD 10 

BYTE 14, 1 

sADDRESS P.ABM 
SSTRSSTRING: 

«WORD 16 

. 14, 1 

sADDRESS P.ABN 
SSTRSSTRING: 

WORD 15 

-BYTE 14, 1 

sADDRESS P.ABO 
SSTRSSTRING: 

-WORD 8 

. 14, 1 

sADDRESS P.ABP 
SSTRSSTRING: 

«WORD 22 

BYTE 14, 1 

sADDRESS P.ABQ 
SSTRSSTRING: 

«WORD 15 

. 14, 1 

sADDRESS P.ABR 
SSTRSSTRING: 

-WORD = 21 

. E 14, 1 

So + P.ABS 
SSTRSSTRINGO: 

WORD 16 

. 14, 1 

"+ a P. ABV 
SSTRSSTRING ‘ , 

BYTE 14, 1 

one P.ABW 
werEse eee 


“BYTE 14, 1 
;ADDRESS P‘ACB 
SSTRSSTRING2: 


Se ee 


AX=11 a V4.0-74 
CIJNDXPAG.BLI; 


NDXPA NDXPAG == Output pa rmatting routi 16-5¢ -1984 - - .0- 
Vv O60 TMSINI == Generate Pst? top of tite string 733p- 1384 bi. 88: 3 RUNOFF SRE NDXPAG.BLI? Page 465 
one a. 
oBdoo Bh B81 les tak : 
88 114 vm : : ’ 
1 1 14, 1 : 
0000 006: G9ti8 Fess P-ACJ : 
$00 11C SSTRSSTRIN st 
1 11 “BY * 1 F 
00000088" 09126 “ADDRESS Pack : 
0001 00124 SSTRSSTRINGS: : 
1 01 “BYTE 14, 1 : 
00000088" 00128 ADDRESS P.ACL : 
0001 0012c SSTRSSTRING6: ' 
01 O€ 0012 “BYTE 14, 1 : 
00000000' 001 “ADDRESS P.ACM : 
SSTRSTARGET= TMS_TXT_FMT 
SSTRSTARGET= TMS FOOT 
SSTRSTARGET= TMS~ PAGE 
SSTRSTARGET= TMS~PAG 
SSTRSTARGET= TMS TXT_FMT 
SSTRSTARGET TMS FOOT 
SSTRSTARGET= TMS PAGE 
SSTRSTARGET= TMS PAGE 
SSTRSTARGET= TMS~ TMP 
SSTRSTARGET= TMS TMP 
SSTRSSTRING7= TMS-TXT_FMT 
SSTRSSTRINGO= TMS TITLE 
SSTRSSTRING1= TMS-TXT_FMT 
SSTRSTARGET= TMS TMP 
.PSECT S$CODES,NOWRT,2 
OFFC 00000 ENTRY THSINI, Save R2,R3.R4.R5.R6.R7.R8.RI.R10,- = 2058 
aR fonpoobne EF oF p00 MOVAB  OUTIOB. RIO ; 
sissy Haabate, : 
38 09 6 EF 3F 6 43 MOVAB XST TStOPY. R : 
$ 00 G EF 9E 000 MOVAB STRSFAILURE, R : 
0000000' ai i 0 ¢ OVA $ SSTRSTARGET, R : 
35 és 8 CMP CROBLK4, #2 ; 2098 
36 DD B PUSHL R6 > 2104 
E D4 CLRL. = = (SP) : 
5 BD F PUSHL R : 
00A0 ¢3 F 00041 PUSHAB $STRSSTRING : 
£ D4 43 CLRL = = ( SP) : 
67 Q FB 0004 CALLS #5, XSTSCOPY : 
6 DD 000A PUSHL 6 > 2105 
| 


f 7 
NDXPA NDXPAG == Output page formatting routine 1 ep-1984 AX=- - “ 
V04=0 IMSINI == Generate TRSIT top oftilerstring — eekeb-done Sipots || PAMNOrR ede EngeeAc cor ye Page 4d3 
4 0004¢ LRL ss = (SP) : 
28 AS OF 4 PUSHAB $STRSTARGET : 
00A g F 2 PUSHAB $STRSSTRING : 
; D4 CLRL 549?) : 
67 FB CALLS #5, XSTSCOPY : 
6 0D A PUSHL R6 : 2106 
4 C CLRL. = = (SP) : 
38 «OAS OOF PUSHAB $STRSTARGET : 
0080 ¢ : 6 PUSHAB $STRSSTRING : 
: D4 0006 CLRL = = (SP) : 
67 FB 0006 CALLS #5, XSTSCOPY : 
0D FD AB 4 €1 A BC #4, CMDBLK+1, 1$ : 2108 
& Dp F PUSHL RG : 2110 
40 3 oF 0973 PUSHAB $STRSTARGET : 
00B8 C5 «OF 7% PUSHAB $STRSSTRING : 
56 bb Soot 18 BUSNL RG : 2112 
E D4 0007 CLRL. = = (SP) : 
40 AS 9F 0008 PUSHAB $STRSTARGET : 
00coO )36—C5—soOF «0008 PUSHAB $STRSSTRING : 
4C 11 00087 BRB 4$ : 
56 DD 00089 2$: PUSHL R6 : 2120 
ze D4 00088 CLRL =(SP) : 
59 DD 0008D PUSHL R : 
00c8 ¢ 9F OO0OBF PUSHAB $STRSSTRING : 
E D4 00093 CLRL = : 
67 05 FB 00095 CALLS #5, XSTSCOPY : 
56 DD 00098 PUSHL R6 : 2121 
7E 04 9009 CLRL =(SP) : 
28 AS 9F 0009C PUSHAB $STRSTARGET : 
00D0 =6¢5:sOOF 90095 PUSHAB $STRSSTRING : 
43 D4 SOAS CLRL -(SP) : 
6? 05 FB OO0A CALLS #5, XSTSCOPY : 
56 DD 000A8 PUSHL R6 : 2122 
7E D4 OOOAA CLRL = = (SP) : 
38 «AS OOF 900ac PUSHAB $STRSTARGET : 
0008 cS OF ODOAF PUSHAB $STRSSTRING : 
43 D4 0008 CLRL (SP) : 
67 05 FB 0008 CALLS 4, XSTSCO : 
0D FD AB 4 €1 0008 BBC a, CRDBLK*T, 3$ : 3124 
6 DD 000BD PUSHL : 2126 
D4 000BF CLRL (SP) : 
40 A 3F C1 PUSHAB $STRSTARGET : 
00E F C4 PUSHAB $STRSSTRING : 
B 11 C8 BRB 4$ : 
6 DD OOOCA 3$: PUSHL 6 : 2128 
p4 cc CLRL.  =(SP : 
40 AS OF cE PUSHAB $STRSTARGET : 
00E ¢ oF D PUSHAB $STRSSTRING : 
E D4 D3 4$: LRL 5fP) : 
67 05 F D CALLS #5, : 
VW NDXV i R N : 
Ht: 000000006 EF DA mov x r $0 Rss I 1 2136 
08 AE f ES MOVB a vas! TRING : 
4 AE 000000096 EF p E MOVL “sein Ne Incl #6 ; 
F (CS OF Fi PUSHAB SC TRSStRIN : 


NDXPAG == Output 
TMSINI == Generat 


Mow 
oor 


5 
5 


NO 


eo Pasit” 


67 


7E 
68 


EF 


Oo 
co 


matting routine 
top of file str 


A 
OOF O 
000000006 EF : 


WFIOD TE IU > FTI ET —rtt Oo 


OOOMDO "19 | FW OU "§ MOOT NONIOOOUNNWO — FP ON F NNO NNN POO PUNO~T 


M2 FNP OOM OS OB" 9 ODO 7 2 S$ NOM - FIDO LMS M VIE FN Ow 


ne es | 


FMM DNS OVNI BP OVIN MOD "WOVMVOMDONVWOOW —— 


DOUG & BWW AION | | = ODD 000 


nn 


a kt tt tt at at ot ts ts = 2 Ss ss ss ss Ss ss Ss Ss Ss Ss Ss Ss Ss Ss 1 OOO 
ow 


OOOOCOOOOOOOOSOOOOOOOOSOOSOOSOOOOOSOO OOOO OOOOO OOOO OOOOOOOOOOOOO 
A a ae ae ae ae ee) ewe) we we we we ww) ww ww ww lolol el wl eo lolo lel olololololelelololelolelelola ele lololelolol lol alelolo) 


<9 9 NING 9 "9 99 $B "9 NS" DWI 0 9 "9 HK FINO MWC CSO NO WVOO "OOO ™WWIOIIUITO "ODVOVO 


OWI © OO "909 9 ON S$ FS SF POW © MOD OOF FOS DLOM**WMWOCVOCLASorow 


SQAAS BMS SVS Wwe HBOS 


Be 15:09:78 


PUSHAB $STR 
PUSHAB $STR 


-(SP) 
#*M<RO,R5> 
# porneere 


#3, XSTSJOIN 
R6 


=(SP) 
#*A<RO,RS> 
-(SP 

#5, XSTSCOPY 
-(§P) 

R10 

TMS_TMP+4 
TMS-TMP, =(SP) 
#4, “TMSPUT 
CMDBLK +1 R3 

#1, TS, #0, -(SP) 
#TASCOL, (§P)+, RO, RO 
5$ 

#1, R1 

6$ 


R1 

#TMSCOL, TS, RO 

RO, R1, TS 

CMOBLK+6, RO 

RO, #1 

#1, R3, C 

#40, TMSSI2Z 

RO, #3 

CHDBLK +28 R3, C 

#25, TMSSIZ 

C 

#26, THSS1Z 

-(SP) 


_t, = 
ASCOL, (SP)+, R1, RI 


-32 V4.0-74 


-11 Blis Pa 74 
f NOFF .SRCJNDXPAG.BLI; of 


(10) 


2137 


2142 


2143 


2148 
2149 


oviow ww 
OVINE OO FLO wS 


ss = ss B42.2:508088808..SSssssssssssss el 


rororerernernsd Ss FoPOPOTU oo Por 


OANINVAOO 


] 
H 7? | 
-- f tti tin 16-Sep-1984 01:06: AX-11 Bliss-32 V4.0-74 Page 75) 
v 1-080 NRSING -- A is 33 of tite string 13-8 8=13Re 94:88:39 RUNOFF. SRCINDXPAG.BL1: ee 
1BC 108: CLRL R1 : : 
53 : 3} a3 1BE 19§ MULL3 #18, C, R3 > 2181) ; 
; 000000006 BF C6 ies DIVE #IMSCOL, R3 : 
50 1 0c i : i tht car's R1, € + ones 3 
coonnoos ff mS RH | RE RU aldth : 2 
161 MOVL = RO, RA 
: 2) a : | 
7E 090s BF Be OOlEs MOVZWL #3307 =(SP) : : 
000000006 EF $3 FB OiED CALLS 3, XSTSASCII ; 
4 QO1F? CLRL = ($P) ; ; 
0 8849 oF a9iF9 PUSHAB @ MDBLK+16CTS] : : 
OP OS Fe 00200 CALLS. #8. XSTSASCII 
sabeipane Ps 28 «AS OOF 09 $6 PUSHAB SStRESTRING? : ; 
0128 C5 9F 0020C PUSHAB $STRSSTRING6 ; ; 
3 DD 00 19 PUSHL RO : ; 
0120 C3 oF 00 PUSHAB SSTRSSTRINGS : : 
ors 3 OF 0518 PUSHAB SSTRSSTRING2 ; 
g DD 00 1C PUSHL 4 : : 
0110 C5 9F 0021 PUSHAB $STRSSTRINGO : : 
000000006. eF G8 £5 0525 CALLS" #8. 'HSTSUOIN ; : 
7E D4 00228 CLRL. = (SP) : : 
0201 oF pe 4 vee #*M<RO,RI> § : 
nena: ay I iam] | 
5A OD 00 C PUSHL R10 : ; 
04 AI DD 0023E PUSHL  TMSTOF : ; 
7E 69 Re 00241 MOVZWL TMSTOF « -(SP) ; 
- 7 be 8 re iat -(§p) > 2192 : 
SA DD 00249 PUSHL R10 : ; 
reo Bb Shes Puste Ams : : 
ALLS #4, TMSPUT : : 
= 8 AS OF PUSHAB $SfRSSTRING! ; 2197 ; 
88 A OF é PUSHAB SSTR STRINGO : : 
000000006 EF f FB 39 CALLS We, XSTSJOIN 
—E D4 62 CLRL. = (SP) : : 
4 BB PUSHR #*M<RO,R5> : 
E Pe 00568 Chis #5 XSTSCOPY : 
- 9 be $B CLRL 0 = §P) > 2198 
5A DD 00260 PUSHL RI : 
04 AS DD 6 of PUSHL  TMS_TMP+4 ; 
f Age RR ERG : 
- 04 6 ? RET ; : 2200 


é r 91:06:32 AX=11 Bliss-32 V4.0-74 Page 76 


NDXPAG NDXPAG == Output page formatting routines 16°$ p- 138 
e TMS11 top of file string 14-Sep-19 RUNOFF ..SRCJNDXPAG.BLI; (10) 


v04-000 TMSINI == Generat 


ss 


; Routine Size: 633 bytes, Routine Base: $CODE$ + 0C6D 


7 
AG == Output page formatting routines 1b-sep-19 4 04:06:32 AX-11 Bliss-32 V4.0-74 Page 77 


wOrPAG ND 
v04-000 TELLTALE_HEAD == Generate and output a telltale 14-Sep-1984 RUNOFF .SRCJNDXPAG.BLI; (11) 


IMPLICIT OUTPUTS: 
The telltale heading is written to the output file if not page 1. 


LLINES CO, ...] = Set to right telltale string if generating a right 
telltaie et 

LTYPE (OJ - Set to right telltale Line type if generating a 
right telltale heading. 

RLINES CO, ...J = Right telltale is set to the null string if a right 
telltale was generated. 


XP 

ELL 
729 1 ZSBITL ‘TELLTALE_HEAD == Generate and output a telltale heading’ 
f 9 ¢ ROUTINE TELLTALE_HEAD : NOVALUE = 
7 : 04 i 
7 05 
734 88 ! 
f 5 4 This routine generates and outputs a telltale heading. 
7 5 09 No heading is generated for the first page. 
738 1 ALL emphasis except overstriking is removed from the heading string. 
r78 : If generating a heading for RUNOFF, each character is bolded. 
oe ! FORMAL PARAMETERS: 
a cee 
oF § IMPLICIT INPUTS: 
747 2 NO - Page number 
748 RLINES (CO, ...] = Right telltale 
749 RTYPE (0) - Right telltale Line type 
750 LLINES fo. ---J - Left telltale 
751 LTYPE (0) - Left telltale Line type 
P36 DBLK - Command Line information block 
754 
755 
756 
757 
758 
759 
760 
4 1 
788 


AOQCMMUIMVIVI 


So. 


ROUTINE VALUE: 
COMPLETION CODES: 


None 
SIDE EFFECTS: 


DONOULSWI—OO0 


NNN NNN NSS 
SAN NNN 


' FUNCTIONAL DESCRIPTION: 
O"LEN, 
O“BUF: VECTOR CCHSALLOCATION (1024)]; 


BI 


ed ed ed ds 8 = a 8 2 os 2 = = = = a 3 is Ls ss Las = 2 


RPIPIPIPIMONPINIMININ NY 3 at at tt at nt nt nk kt kt tt tt tt 8 tt tt 


WSHTTSR 
SG 

PoRoRoRORORORORORORORORoRORORNOnonononononononononofornononofonononononononorny 
POPOROPOPOROPOPONONONONOROPONONONONOPONINONONOPONONOPONIPOPOPOPORONURONOPUND 


0200000900090 
UMEWwN—o 


SANS 


ND 
STR = LLINES CO, 0,0,0,0] : SSTR_DESCRIPTOR (); 


a! 
I~ 


SOLS 


WOWOOOOWONNNAN AAAI 


RNIN] 2 BQO OO OOO ODO ODDO 
SSSRNOU PUN" OODNAME WW BODRUE ARO OO De Ree 


BO VUE ON MURS SoS 


Ww 
moO 


ee ee re EE SS 


WAR IIINIWINI A WINIAIIIPININIIWIAAAIAII WII IIIinononononononuny 


FRRAS 


K 7 
*RLE HEAB oe page formatting routines 19=3¢ =138¢ 04:06:32 Acer sar tube V4.0-7 


enerate and output a telltale Oat RUNOFF .S 


IF .PAGENO 
THEN 
BEGIN 
i Odd numbered p 


age. 
' Save the right Pelttate as the left telltale and 
set the right telltale to the null string. 


$STR copy (STRING = RL INES CO, 0,0,0,03, TARGET = LLINES CO, 0,0,0,0]); 
TYPE E (OJ; 


" 0] = .RTYP 
AN aled (STRING = se TARGET = RLINES CO, 0,0,0,0)); 


' 
If this is page 1, do nothing; just return. 
if .PAGENO EQL 1 THEN RETURN; 


' 
Initialize pointers to input and output strings and string lengths. 


.STR CSTRSA_POINTER); 
“STR CSTRSH-LENGTH); 


« CHSPTR (O_BUF); 
F_.LTYPE CO) EQL CONT_HEAD 
HEN 
BEGIN 
; Line was a continuation heading. Search for ‘(Cont_.)' 
T_PTR = CHSFIND_SUB (.1_LEN, -ILPTR, 8, CHSPTR (UPLIT (*(Cont_.)'))); 


ELSE 
BEGIN 


i Line was an index entry. Search for the NULL which delimits the 
start of the page references (if any). 


T_PTR = CHSFIND_CH (.1_LEN, .1_PTR, 0); 
END; 


R 
LEN 


I 
I 
0 
0 
I 
T 


IF NOT CHSFAIL (.T_PTR) 
THE 
BEGIN 


i There are either page references or ‘(Cont_.)" on the Line which 
should be ignored. 


i_LEN = CHSDIFF (.T_PTR, .1_PTR); 
ERD; 


WHILE ,J LEN GTR 0 DO 
BEGIN 


NDXPAG.BLI 


7 

NDXPA NDXPAG == Output page formatting routines 1-50 -1984 01:06: AX-11 Bliss-32 V4.0-74 Page 79 

V O80 TELLTALE HEAD == eherate and output a telltale 1 735071382 94:08:78 RUNOFF. RCINDXPAG.BLI; (11) 

> 1843 15 ! Copy the Line removing all vig ot except overstriking. ‘ 
3 : te 18 If generating RUNOFF output, bold each character. : 
: 184 1 LOCAL : 
: 184? 18 CH; : 
: 1848 ; 
> 1849 1 CH = CHSRCHAR_A (J_PTR); 3 
; : 2 § I_LEN = .ILLEN = 13 : 
> 185 mA SELECTONE .CH OF ; 
3 1888 5 SET : 
; i8e¢ $ Cxc*e", £C°S'): : 
; 1828 8 ' ; 
3; 185 9 ! Bold or underline. Ignore it. ; 
; 1858 0 ! 3 
; 1859 1 : F 
: 1860 ; : 
3: 1861 8 tla 3 
3 1396 4 4 BEGIN $ 
: 186 : : « ' 3 
5 He) $39 7 Accept flag. Write it and the next character out. : 
3; 1866 338 4 IF .CMDBLK CNDX$H_FORMAT] EQL DSR é 
: 1867 339 4 THEN 3 
3: 1868 340 5 BEGIN 3 
3: 1869 341 5 ' 3 
: 1870 308 5 ' Bold the character 3 
: 1871 § 4 2 ! 3 
: 1876 44 CHSWCHAR_A (%C'®', O_PTR); ; 
> 187 2345 5 O LEN = 7O_LEN + 1; : 
> 1874 2346 4 ND; 3 
¢ 1803 seen 4 3 
3; 1876 348 4 CHSWCHAR_A (.CH, O_PTR); ° 
; 1877 2349 4 CHSWCHAR-A (CHSRCHAR_A (I_PTR), O_PTR); ; 
3; 1878 350 4 I_LEN = .I_LEN = 1; 3 
: 1879 351 4 O LEN = .O_LEN + 2; ; 
3; 1880 $26 END; . 
: 1881 35 $ 
: Ise 354 C%c'2"): F 
: 188 355 4 BEGIN 3 
3: 1884 $28 4 ' ; 3 
: Ha # 57 ; Overstrike flag. Just write it out. : 
; 188 335 4 CHSWCHAR_A (.CH, O_PTR); ! Write overstrike flag : 
3; 1888 360 4 O LEN = .O_LEN + 1; 3 
3: 1889 1 3 3 
3: 1890 66 3 
: 1891 6 COTHERWISE): 3 
3 3 4 4 4 BEGIN : 
3; 189 65 4 ! 3 
3 } hs $6 2 A normal character. : 
:4 % 68 4 iF .CMDBLK CNDXSH_FORMAT] EQL DSR ; 
; 189 $ 4 : 
3 1398 0 : BEGIN 3 
: 1899 71 ! g 


8 _ bb 

NDXPAG NDXPAG == Cutput page formatting routines -Sep 4 01:06:3 AX-11 Bliss-32 V4.0-7 Page 80 

v04-000 TELLTALE "HEAD == Sokerate and output a telltale 1 19-80 Sep =138 93:98:92 RUNOFF .SRCJNDXPAG. Bis . (11) 

; 1900 7 Bold the character ; 
; 1901 ie 3 
3 1308 74 CHSWCHAR_A A (aCis® O_PTR); ; 
: 190 75 O LEN = 7O_LEN + f; : 
3: 1904 6 4 : 3 
3; 1905 77 & 3 
s 19 4 4 CHSWCHAR WA (.CH, 9. PTR); ; 
; 190 79 4 O LEN = TO_LEN + : 
; 1908 0 Abs : 
3; 1909 1 3 
3 1910 § TES; : 
: 1911 3 
: 1316 4 END; 3 
3: 191 5 ; 
H Pay: 6 O_PTR = CHSPTR (0 BUF) : 
3; 1916 88 SELECTONE .CMDBLK CNDX$H_FORMAT) OF 3 
3 1917 89 SET : 
3; 1918 90 3 
3 1919 391 COSRI: 3 
: iy , 308 PUT_LINE ($STR_CONCAT (*.SUBTITLE ‘, (.O_LEN, .O_PTR))); : 
3 19 ¢ 394 CTMS11_A, TMS11_E]: 3 
3 19 395 BEGIN : 
3 1924 396 : 3 
: + ? 44 } Write telltale for /TMS : 
3 iy i 138 RNOTMS (.O_LEN, .O_PTR, TMS_TMP); ! Convert special characters : 
3 1998 401 IF .PAGENO 3 
; 1930 40 H 2 .eege - ri 4 telltale : 
3: 1931 403 4 SSTR_APPEND (STRING = TMS_RIGHT, “TARGE = TMS_TMP $ 
: 1338 404 ELS page - “lore telltale 3 
; 1387 ret SSTR_APPEND (STRING = TMS_LEFT, ianter = TMS_TMP?; ; 
; 1999 re IF_.CMDBLK CNDXSH_FORMAT) EQL TMS11_A : 
2 3 mt 4 ELS SSTR_COPY (STRING = ‘*telltale*’, TARGET = TMS_TELLTALE) : 
: Hb Sg a3 SSTR_COPY (STRING = ‘tetelltale*', TARGET = TMS_TELLTALE); : 
: 1941 418 SSTR_APPEND (STRING = Ft R_CONCAT (TMS_TMP, ‘a@*), TARGET = TMS TELLTALE) : 
3 Hoi 414 TMSPOT (.TMS_TELLTALE CSTRSH_LENGTH], <TMS “TELLTALE CSTRSA_POINTER), ouTios, TRUE); 3 
3 194 415 ENDS 3 
3 1944 219 $ 
3 1945 41 CTEX): 3 
3 1268 oi3 BEGIN 3 
3 194 41 ! 3 
3 1308 420 ! Write telltale for TEX 3 
3 194 421 ' é 
; 1950 4 2 RNOTEX (.0_LEN, .O_PTR, TMS_TMP); ; 
3 1951 4 3 
3 1336 424 IF .PAGENO 3 
3; 195 425 3 
3: 1954 4 § 4 BEGIN 3 
; 1955 4 4 ! 3 
3; 1956 428 4 ! Odd page, telltale is flush right 3 


see 
so~ 


. a NDXPAG == Output page formatting routines 16- 


4 AX-11 Bliss-32 V4.0-74 
TELLTALE_HEAD == Generate and output a telltale 14- eats 9}: 88: 2 RUNOFF .SRCJNDXPAG.BLI; 


; 1957 4 4 
3 132% P 24 3 4 ésTR COPY (TARGET = TMS TELLTALE, 
3 1328 : 1 : STRING = $STR_CONCAT ("\telltale{\nfill ', TMS_TMP, '}')); 
: 1961 4 g 4 END 
3 1396 434 3 ELSE 
: 196 435 4 BEGIN 
: 1964 4 $ 4 ! 
: 1302 r , : Even page, telltale is flush left 
3 1969 P 2439 4 ésTR COPY (TARGET = TMS TELLTA is. 
> 1968 440 4 STRING = $STR_CONCAT ( ("\telltalec', TMS_TMP, ‘\hfill }")); 
3: 1969 441 4 
: 1970 tt§ END; 
3; 1971 44 
3 13%6 444 PUT_LINE (TMS_TELLTALE); 
: 197 445 END; 
3 1974 re 
3; 1975 44 TES; 
: 1976 448 
3; 1977 449 1 END; 
-PSECT SPLITS,NOWRT,NOEXE,2 
00125 P.ACR: .BLKB 0 
00125 -BLKB 
29 2—E SF 74 of 6F 43 28 00128 P.ACS: .ASCII Cont_. 
20 45 4C 49 54 42 55 53 2& 00130 P.ACU: .ASCII \.SUBTITLE \ 
2A 65 6C 61 74 6C 6C 65 74 2A OQOOI13A P.ACW: .ASCII \etelltaler\ 
2A 65 6C 61 74 6C 6C 65 74 65 2A 00144 P.ACX: .ASCII \*tetelltale*\ 
40 OO14F P.ACZ: .ASCII \@\ 
6c 69 66 68 SC 7B 65 6C 61 74 6C 6C 65 a 2 3120 P.ADD: .ASCII <92>\telltale{\<92>\nfill \ 
70 00161 P.ADE: .ASCII \}\ 
7B 65 6C 61 74 6C 6C 65 74 5C Q0162 P.ADJ: .ASCII <92>\telltalec\ 
20 69 5C O0016C P.ADK: .ASCII 


le 
<92>\HFILL IN 
-PSECT SOWNS,NOEXE,2 
00134 SSTROSTAING 


ORD 0 
4 OF. 88 ‘BYTE 14, 1 
00000000" NGOs. P.ACR 
QOOA 0013¢ C SSTRSSTRING ie 
01 3 oF “Brie 14, 1 
0000 * 0014 ADDRESS P.ACU 
0144 SSTRSSTRING: 
-WORD 10 
O16 <BYTE 14, 1 
. Bie ADDRESS P.ACW 
14C SSTRSSTRING: 1 
014 14, 1 
00000006" $0196 “ADDRESS PACK 


<zZz 


NOXPAG == Output 


age formatting routines 
TELLTALE_HEAD == 


enerate and output a telltale 1b-se Haat 94: 88: 


72 AX=11 Blisg-32 V4.0-74 
RUNOFF .SRCJNDXPAG.BLI; 


0001 00154 S$STRSSTRING1: 
1 1 “BYTE 14, 1 
00809006" 00138 OODRESS P“ACZ 
01 15C SSTRSSTRINGO: 
.WORD 17 
01 ‘ 15 “BYTE 14, 1 
00 099 * 0016 ADDR ESS P.ADD 
001 00164 SSTRSSTRING 
«WORD 1 
4 ‘ 0166 “BYTE 14, 1 
00 099 ’ O16 ADDRESS P.ADE 
A 0016C SSTRSSTRINGO: - 
1 01 “BYTE 14, 1 
00809006 29170 “ADDRESS P.ADJ 
008 00174 $STRSSTRIN iNGe: , 
01 oF 00176 “BYTE 14 be 
00000006" 0017 “ADDRESS P 
SSTRSSTRING= TMS_RIGHT 
SSTRSSTRING= TMS LEFT 
SSTRSTARGET= TMS TELLTALE 
SSTRSTARGET= TMS_TELLTALE 
SSTRSSTRINGO= Las BL 
SSTRSSTRINGI= TMS_TMP 
SSTRSTARGET= T™S_ ei ions 
SSTRSSTRINGI= ™ 
SSTRSTARGET= TMS ~TELLTALE 
SIOBSOUTPUT= TMS “TELLTALE 
-PSECT S$CODE$,NOWRT,2 
OFFC 00000 TELLTALE_HEAD: 
WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 
58 990000006 EF 9€ 0000 MOVAB XSTSCOPY, R11 
5a 000000006 EF 9€ 0000 MOVAB 108$+68, R10 
29 9900 00 G EF 9€ 9019 OVAB STRSFAILURE , RO 
8 0 000° EF 9E MOVAB us TMP, R 
3E FBF CE 43 3 MOVAB -1032(SP), SP 
000000006 EF E BLBC - PAGENO, 1$ 
9 ODD 3 A PUSHL ROD 
E D4 C CLRL. = (SP) 
900000006 EF 9F E PUSHAB $STRSTARGET 
00 G GF F PUSHAB S$STRSSTRING 
“ D4 A CLRL = = (SP) 
68 0 FB C CALLS #5, XSTSCOFY 
000000006 EF 000000006 EF »D F MOVL RTYPE, LTYPE 
anya rt PURE Ree) 
000090906 EF oF aE PUSHAB $STRSTARGET 
1 C8 F PUSHAB $STRSSTRING 
E D4 a CLRL = = (SP) 
68 05 FB A CALLS #5, XSTSCOPY 
1 000000006 EF 01 D 1$: CMPL PAGENO, # 


2202 


3367 


3569 


2275 


SS 


8 
NOXPA NOXPAG == Output page formatting routines 1$- Se 4 AX-11 B - 4.0-74 
yO4L 060 TELLTALE_HEAD == sherote and output a telltale 1 12788-1382 9}: 8¢: 72 RUNOFF. Bt c wexphe: te 


01 ie 64 BNEQ 2s 


4 RET 
G EF 00 88 2$: MOVL  STR*4, I_PTR 
2g aids EE C : MOVZWL STR, f_LEN 
Re SE 0007 Te oe 
38 8 000000086 FF D 7 cHPL LTYPE, a7} 
67 56 00000000" EF : 0 4 MATCHC #8, P.ACS, I_LEN, (1_PTR) 
1 D BEQL 3$ 
5 ’ D F MOVL. #8, R 
67 56 3A 00097 4$: LOCC #0, I_LEN, (I_PTR) 
Q 12 00098 BNEQ 5$ 
D4 090 CLRL sR 
53 51D oF 5$ MOVL 1, T_PTR 
04 13 QOOA2 6$ BEQL 7$ 
56 53 7 ¢3 000A4 SUBL3 I_PTR, T_PTR, I_LEN 
56 03 OOA8 7$ TSTL I7LEN 
40 15 OOOAA BLEQ ='1T$ 
50 87 9A OOOAC MOVZBL (I_PTR)+, CH 
6 D7 OOOAF DECL  1_CEN 
26 50 0* 00081 CMPL ch #38 
£2 13 000B4 BEQL $ 
2A 50 Di 00086 CMPL cH, #42 
ED 13 00089 BEQL t 
QO00005F &F 0 Di 00088 CMPL CH, #95 
1B 12 990¢ BNEQ 409. 
01 000000006 ai B1 000C4 CMPW CMDBLK+4, rt 
5 fs 00¢B BNEQ § 
84 eA 90 000CD MOVB #42, (O_PTR)+ 
5 06 00D INCL LEN 
84 50 90 000D2 8s: MOVE CAS TR)+ 
84 87 90 9900 MOVB sO pIRTe. (O_PTR)+ 
56 D7 00008 DECL. 1_CEN 
55 0g CO OOODA ADDL2 #2, O_LEN 
c 11 0000D BRB 7$ 
25 0 D1 OOODF 98: CMPL CH, #37 
0& 13 O0E2 BEQL si 
01 000000006 EF B81 O00E4 CMPW = CMDBLK+4, #1 
5 fs O0EB BNEQ 
84 A 9 ED ROVE #42 4 (O-PTRD# 
84 6 88 Sf 10$:  MOVB CR, (O_PTR)+ 
D6 OOOF INCL CEN 
AF 11 OOOF BRB 
54 08 AE 1 F9.11$:  MOVAB O_BUF, O_PTR 
50 000000006 _ EF FD CVTWL  CADBLK+47 RO 
01 81 1 CMPW RQ rh 
107 BNEQ  12$ 
6E 109 mMOVW =O LEN SSTRSSTRING1 
: AE E 1 ¢ MOVB ay $STRSSTRINGI+2 
AE 1 11 MOVB SSTRESTRINGI #3 
4 AE 4 pO 00114 MOVL o, ‘ere TRSSTRING1+4 
. BD 118 PU 
C8 OF OOTIA 


USML 
0138 PUSHAB irassrames 


SS 


roe 
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000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


EF 
6A 


02 


08 


68 


EF 


o¢ 
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0110 


000000006 


20 


18 


000000006 


30 


Wwo 
ofon 


0110 


000000006 


wo 
or 
Wo 


oOo 
o 


oS 

Oo 
PS NMOMOONOO F NN0E PF JNIOM ON ANUMIO PB UAIVIM OM MUNDWOwo 
COOOM Of» COCOVUIFTN COCO OW COCO OU NVUIIN COCO ODOOOMO™"WUN"NDOONMWO™N 


wo w—@w 
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CALLS 
M 


AX=11 Bliss-32 V4.0-74 
RUNOFF .SRCJNDXPAG.BLI; 


‘ , XST$JOIN 

§ 

nag 

19$ 

R #3 

#*°M<R4,RB> 
N 


L 
#3, RNOTMS 
PAGENO, 15$ 


= (SP) 
S$STRSSTRING 
16$ 


#2 


RY 
~ ais 
oe 


#5, a 
CMOB » #2 
7s 

R9 

= (SP) 
SSTRSTARGET 

1 lppssesacte 


=(SP) 
SSTRSTARGET 
SSTRSSTRING 

#5, XSTSCOPY 
SSTRSSTRING! 

, , XSTSJOIN 
-(SP) 
TMS_TELLTALE 
RO 

-(SP) 

4, XSTSAPPEND 


OUTIOB 
Las TELLTALE +4 

TMS “TELLTALE, -(SP) 
#4,” TMSPU 

R Bl, 

#“M<R4,RB> 


#3, RNOT 
PAGERO” 5s 
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Page 84 


(11) 
2394 


2399 


3005 


2405 


2407 
2409 


2411 


2413 


2414 


388 
417 


2422 


2424 


-$255$DUA28: CSYSLIBIXPORT.L32;1 590 


NOXPA NDXPAG == Output page formatting routines | 
v04-000 TELLTALE_HEAD == Generate and output a telltale 1 
0160 8 9F 00108 
D OO1DF 
0158 § F QOIE 
A 11 QO1E 
0170 § 9F OOIE7 208: 
pp 1EB 
0168 F QO1ED 
000000006 EF FB QO1F1 21$: 
DD OO1F8 
hs 1FA 
30 A F QOTFC 
7e be Oosol 
68 6 FB §} 
6A 30 Ag 3 06 
EB AA 07 90 Q020A 228: 
000000006 EF 9F QO20E 
E D4 00214 
BC AA 9F 00216 
00000000G_ EF 03 FB 00219 
04 00220 23$: 
; Routine Size: 545 bytes, Routine Base: S$CODE$S + OEE6 
; 1978 2450 
3: 1979 2451 1 END ! End of module 
: 1980 2452 0 ELUDOM 
: PSECT SUMMARY 
: Name Bytes Attributes 
: SPLITS 72 NOVEC,NOWRT, RD ,NOEXE,NOSHR, 
; SCODES 4359 NOVEC,NOWRT, RD, EXE,NOSHR, 
; Library Statistics 
: eeeacenteece ym ols eeeeecees 
; File Total Loaded Percent 


150 25 


foseo-1984 01:06:49 


-EXTRN 


Pages 


AX=11 Bliss=32 V4.0-74 
RUNOFF ..SRCJNDXPAG.BLI; 


SSTRSSTRING2 
; TRSSTRINGO 
TRSSTRING2Z 
SSTRSSTRINGO 
#3, XSTSJOIN 
R9 
=(SP) 
SSTRSTARGET 
RO 
#5, XSTSCOPY 
$10BS0UTPUT. 10B$+68 
#7, 10B$+44 
XPOSFAILURE 
-(SP) 


i 
#3, XPOSPUT 


LIBSSIGNAL 

REL, CON,NOPIC,ALIGN(2) 
REL, CON,NOPIC,ALIGN(2) 
R CON,NOPIC ,ALIGN(2) 


Processing 


Mapped Time 


252 


00:00.2 


2444 


2449 


Lee. _ 


F 8 
NDXPAG == Output page formatting routines -Sep AX-11 Bliss-32 V4.0-7 Page 86 
TELLTALE “HEAD == oferate and output a telltale 1 18-8ee Sep 7198¢ 9}: 8S: 72 RUNOFF .SRCJNDXPAG. Bite . a v0 


NDXPA 
v04~0 
; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:NDXPAG/OBJ=0BJ$:NDXPAG MSRC$:NDXPAG/UPDATE=(ENHS:NDXPAG) 


3: Size: 4359_code + 752 data bytes 
; Run Time: 3: 32024 4 

; Elapsed Time: 

3 Lines/CPU Min: “56 

3; Lexemes/CPU-Min: 101836 

: penety Used: 492 pages 

; Compilation Complete 


H-BT13A 


0345 Jaccons vse 
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A 
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